Additional work on the module system and phase separation

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