add case

2016-08-12 11:53:19 -07:00 · 2016-08-12 11:53:19 -07:00 · ebae6bd11d
commit ebae6bd11d
parent da3ee27045
1 changed files with 2 additions and 0 deletions
--- a/beautiful-racket-lib/br/define.rkt
+++ b/beautiful-racket-lib/br/define.rkt
@ -157,6 +157,8 @@
     #'(define-syntax id (make-rename-transformer stxed-id))]
    [(_ id:id func:transformer-func)
     #'(define-syntax id func)]
+    [(_ id:id func-id:id)
+     #'(define-syntax id func-id)]
    [(_ id:id stxed-thing:syntaxed-thing) 
     #'(define-macro id (λ (stx) stxed-thing))]
    [(_ (id:id . patargs:expr) . body:expr)