.

jeapostrophe · May 31, 2012 · 1fc781a · 1fc781a
1 parent 44a89cf
commit 1fc781a
Showing 1 changed file with 8 additions and 9 deletions.
diff --git a/opt-arrow.rkt b/opt-arrow.rkt
@@ -13,15 +13,14 @@
 (foo 1 2 3)
 (foo 1 2 3 4)
 
-(begin-for-syntax
-  (define opt->
-    (cons 't-macro
-          (λ (stx)
-            (printf "inside opt->\n")
-            (syntax-case stx (? ->)
-              [(_ [req-arg ... (? opt-arg ...) -> ret])
-               (syntax/loc stx
-                 [req-arg ... opt-arg ... -> ret])])))))
+(define-syntax opt->
+  (cons 't-macro
+        (λ (stx)
+          (printf "inside opt->\n")
+          (syntax-case stx (? ->)
+            [(_ [req-arg ... (? opt-arg ...) -> ret])
+             (syntax/loc stx
+               [req-arg ... opt-arg ... -> ret])]))))
 
 (: foo2
    (opt-> [Integer Integer (? Integer Integer) -> Integer]))