this seems to work so far

AlexKnauth · Oct 20, 2014 · da05d39 · da05d39
1 parent 2fd9c8f
commit da05d39
Showing 1 changed file with 9 additions and 7 deletions.
diff --git a/a-typed-lang/main.rkt b/a-typed-lang/main.rkt
@@ -1,18 +1,20 @@
 #lang typed-racket/minimal
 
 (require typed/racket
-         a-typed-lang/more
+         ;a-typed-lang/more ; for some reason this can't be here
          (only-in typed/racket
                   [#%module-begin tr:module-begin]
                   [require tr:require]))
 
 (provide (except-out (all-from-out typed/racket) #%module-begin)
          (rename-out [module-begin #%module-begin])
-         (all-from-out a-typed-lang/more))
+         ;(all-from-out a-typed-lang/more)
+         )
 
 (define-syntax module-begin
-  (syntax-rules (require)
-    [(_ decl ...)
-     (tr:module-begin
-      (require a-typed-lang/more)
-      decl ...)]))
+  (lambda (stx)
+    (syntax-case stx ()
+      [(_ decl ...)
+       #`(tr:module-begin
+          #,(datum->syntax stx '(require a-typed-lang/more))
+          decl ...)])))