diff options
Diffstat (limited to 'scheme/sweet-macros/helper3.mzscheme.sls')
-rw-r--r-- | scheme/sweet-macros/helper3.mzscheme.sls | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/scheme/sweet-macros/helper3.mzscheme.sls b/scheme/sweet-macros/helper3.mzscheme.sls index 9d6108e..b1cb947 100644 --- a/scheme/sweet-macros/helper3.mzscheme.sls +++ b/scheme/sweet-macros/helper3.mzscheme.sls @@ -11,12 +11,13 @@ (sub (def-syntax name transformer) #'(define-syntax name - (syntax-match (<source> <transformer>) - (sub (name <transformer>) #'(... (... transformer))) - (sub (name <source>) #''(... (... transformer))) - (sub x (transformer #'x)))) - (identifier? #'name) - (syntax-violation 'def-syntax "Invalid name" #'name)) + (lambda (x) + (syntax-case x (<source> <transformer>) + ((name <transformer>) #'(... (... transformer))) + ((name <source>) #''(... (... transformer))) + (x (transformer #'x))))) + (identifier? #'name)) + ;(syntax-violation 'def-syntax "Invalid name" #'name)) (sub (def-syntax name (extends parent) (literal ...) clause ...) #'(def-syntax name |