diff options
-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 |