From ebae6bd11d31dcbf35db8b32b2b9fe0de59d92b9 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 12 Aug 2016 11:53:19 -0700 Subject: [PATCH] add case --- beautiful-racket-lib/br/define.rkt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/beautiful-racket-lib/br/define.rkt b/beautiful-racket-lib/br/define.rkt index 23503d0..1136cdd 100644 --- 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)