original commit: 47aee51359f6b1ba5e84c21d333524f783512442
This commit is contained in:
Vincent St-Amour 2013-11-07 13:49:42 -05:00
parent cdc131b29e
commit 1eca551202

View File

@ -73,7 +73,7 @@
e:opt-expr ...)
#:with opt (quasisyntax/loc/origin this-syntax #'kw
(kw e.opt ...)))
(pattern (~and ((~or #%provide %require begin-for-syntax module module*) . _) opt))
(pattern (~and ((~or #%provide #%require begin-for-syntax module module*) . _) opt))
(pattern (~and (~or (quote _) (quote-syntax _) :id) opt)))
(define (optimize-top stx)