diff options
| author | michele.simionato <devnull@localhost> | 2009-05-02 13:37:58 +0000 |
|---|---|---|
| committer | michele.simionato <devnull@localhost> | 2009-05-02 13:37:58 +0000 |
| commit | 31059e2bd73c41b42c5024c8308cfdbee6ac20f0 (patch) | |
| tree | fed9e36c52547bfb37a71bda7eabce15ecd23909 /scheme/experimental/static-map.sls | |
| parent | e0a1feb75245288a71129679ab0470c125247146 (diff) | |
| download | micheles-31059e2bd73c41b42c5024c8308cfdbee6ac20f0.tar.gz | |
A lot of work on episodes 22,23,24
Diffstat (limited to 'scheme/experimental/static-map.sls')
| -rw-r--r-- | scheme/experimental/static-map.sls | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/scheme/experimental/static-map.sls b/scheme/experimental/static-map.sls new file mode 100644 index 0000000..44d6199 --- /dev/null +++ b/scheme/experimental/static-map.sls @@ -0,0 +1,11 @@ +#!r6rs +(library (experimental static-map) +(export static-map) +(import (rnrs) (sweet-macros)) + +(def-syntax (static-map (name value) ...) + #'(syntax-match (<names> name ...) + (sub (ctx <names>) #''(name ...)) + (sub (ctx name) #'value) + ...)) +) |