diff options
author | michele.simionato <devnull@localhost> | 2009-02-10 16:41:27 +0000 |
---|---|---|
committer | michele.simionato <devnull@localhost> | 2009-02-10 16:41:27 +0000 |
commit | d18784d34d9be5c618ac5141e9e0354e790bfac9 (patch) | |
tree | 0007cebe430d371715cb8f198eb39775c3574550 /scheme | |
parent | cc24994948f1e9c0a1868c7738fbf49c36c267b1 (diff) | |
download | micheles-d18784d34d9be5c618ac5141e9e0354e790bfac9.tar.gz |
Added a few missing ellipsis
Diffstat (limited to 'scheme')
-rw-r--r-- | scheme/sweet-macros.sls | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scheme/sweet-macros.sls b/scheme/sweet-macros.sls index 18e9893..e98439a 100644 --- a/scheme/sweet-macros.sls +++ b/scheme/sweet-macros.sls @@ -58,10 +58,10 @@ ((ctx <patterns>) #''((... (... patt)) ...)) ((ctx <source>) - #''(local (let-form name value) ...) (self (literal ...) + #''(self (local (let-form name value) ...) ((... (... literal)) ...) (... (... (sub patt skel . rest))) ...)) ((ctx <transformer>) - #'(self (local (let-form name value) ...) (literal ...) + #'(self (local (let-form name value) ...) ((... (... literal)) ...) (... (... (sub patt skel . rest))) ...)) (patt skel . rest) ...)) (for-all identifier? #'(literal ...)) @@ -91,7 +91,7 @@ )) (def-syntax (syntax-expand (macro . args)) - #'(syntax->datum ((macro <transformer>) #'(macro . args)))) + #'(syntax->datum ((macro <transformer>) #'(... (... (macro . args)))))) ) ;;; LEGALESE |