1 Welcome to PLT Scheme
2 Scheme Essentials
3 Built-In Datatypes
4 Expressions and Definitions
5 Programmer-Defined Datatypes
6 Modules
7 Contracts
8 Input and Output
9 Regular Expressions
10 Exceptions and Control
11 Iterations and Comprehensions
12 Pattern Matching
13 Classes and Objects
14 Units (Components)
15 Reflection and Dynamic Evaluation
16 Macros
17 Performance
18 Running and Creating Executables
19 Compilation and Configuration
20 More Libraries
Bibliography
Index
Version: 4.0.2

 

6.6 Assignment and Redefinition

The use of set! on variables defined within a module is limited to the body of the defining module. That is, a module is allowed to change the value of its own definitions, and such changes are visible to importing modules. However, an importing context is not allowed to change the value of an imported binding.

Examples:

  > (module m scheme

      (provide counter increment!)

      (define counter 0)

      (define (increment!)

        (set! counter (add1 counter))))

  > (require 'm)

  > counter

  0

  > (increment!)

  > counter

  1

  > (set! counter -1)

  set!: cannot mutate module-required variable in: counter

As the above example illustrates, a module can always grant others the ability to change its exports by providing a mutator function, such as increment!.

The prohibition on assignment of imported variables helps support modular reasoning about programs. For example, in the module,

  (module m scheme

    (provide rx:fish fishy-string?)

    (define rx:fish #rx"fish")

    (define (fishy-string? s)

      (regexp-match? s rx:fish)))

the function fishy-string? will always match strings that contain “fish”, no matter how other modules use the rx:fish binding. For essentially the same reason that it helps programmers, the prohibition on assignment to imports also allows many programs to be executed more efficiently.

Along the same lines, re-declaration of a module is not generally allowed. Indeed, for file-based modules, simply changing the file does not lead to a re-declaration, because file-based modules are loaded on demand, and the previously loaded declarations satisfy future requests. It is possible to use Scheme’s reflection support to re-declare a module, however, and non-file modules can be re-declared in the REPL; in such cases, the redeclaration may fail if it involves the re-definition of a previously immutable binding.

  > (module m scheme

      (define pie 3.141597))

  > (require 'm)

  > (module m scheme

      (define pie 3))

  define-values: cannot re-define a constant: pie in module:

  ’m

For exploration and debugging purposes, the Scheme reflective layer provides a compile-enforce-module-constants parameter to disable the enforcement of constants.

  > (compile-enforce-module-constants #f)

  > (module m2 scheme

      (provide pie)

      (define pie 3.141597))

  > (require 'm2)

  > (module m2 scheme

      (provide pie)

      (define pie 3))

  > (compile-enforce-module-constants #t)

  > pie

  3