diff options
author | micheles <micheles@micheles-mac> | 2010-03-28 17:42:39 +0200 |
---|---|---|
committer | micheles <micheles@micheles-mac> | 2010-03-28 17:42:39 +0200 |
commit | ecf277c15bda9e6284c2fff02ae5917e7ce159f2 (patch) | |
tree | 455e08c6c7d29712573e9d9dfde19ed633ad391e /scheme | |
parent | aa7077b22aa020b53264ad1bca0f8ba82b25348d (diff) | |
download | micheles-ecf277c15bda9e6284c2fff02ae5917e7ce159f2.tar.gz |
Recovered my repository
Diffstat (limited to 'scheme')
-rw-r--r-- | scheme/experimental/registry.sls | 17 | ||||
-rw-r--r-- | scheme/sweet-macros/main.mzscheme.sls | 9 |
2 files changed, 0 insertions, 26 deletions
diff --git a/scheme/experimental/registry.sls b/scheme/experimental/registry.sls index c2a0226..e69de29 100644 --- a/scheme/experimental/registry.sls +++ b/scheme/experimental/registry.sls @@ -1,17 +0,0 @@ -#!r6rs -(library (experimental registry) -(export registry register) -(import (rnrs)) - -(define _registry '()) - -(define (registry) - _registry) - -(define (register id) - (display "registering ") (display id) (newline) - (set! _registry (append _registry (list id))) - _registry) - -(display "registry instantiated\n") -) diff --git a/scheme/sweet-macros/main.mzscheme.sls b/scheme/sweet-macros/main.mzscheme.sls index 1c6bd88..e69de29 100644 --- a/scheme/sweet-macros/main.mzscheme.sls +++ b/scheme/sweet-macros/main.mzscheme.sls @@ -1,9 +0,0 @@ -#!r6rs -(library (sweet-macros) -(export syntax-match def-syntax syntax-expand) -(import (rnrs) (for (sweet-macros helper3) run expand)) - -;; this only works for macros defined through def-syntax -(def-syntax (syntax-expand (macro . args)) - #'(syntax->datum ((macro <transformer>) #'(... (... (macro . args)))))) -) |