diff options
| author | michele.simionato <devnull@localhost> | 2009-04-20 05:10:03 +0000 |
|---|---|---|
| committer | michele.simionato <devnull@localhost> | 2009-04-20 05:10:03 +0000 |
| commit | 573abefd1cd7e13181a2b53a44619234c449ae6c (patch) | |
| tree | def307839ca35bd54b3015df6f9992d16c785b7e /scheme/experimental/mod2.sls | |
| parent | c214d459cad0a463716c83c9eb12f22c9c42bf75 (diff) | |
| download | micheles-573abefd1cd7e13181a2b53a44619234c449ae6c.tar.gz | |
Committed a lot of work on the Scheme module system
Diffstat (limited to 'scheme/experimental/mod2.sls')
| -rw-r--r-- | scheme/experimental/mod2.sls | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/scheme/experimental/mod2.sls b/scheme/experimental/mod2.sls new file mode 100644 index 0000000..cc35ca1 --- /dev/null +++ b/scheme/experimental/mod2.sls @@ -0,0 +1,14 @@ +#!r6rs +(library (experimental mod2) + (export get-x incr-x) + (import (rnrs)) + + (define x 0) + + (define (get-x) + x) + + (define (incr-x) + (set! x (+ 1 x)) + x) +) |