Add missing core form.

original commit: 2d6fc203508445de04511bab038f7c6e69e65be0
This commit is contained in:
Vincent St-Amour 2013-11-08 13:46:19 -05:00
parent 1eca551202
commit df0d87c948

View File

@ -73,7 +73,9 @@
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 define-syntaxes module module*)
. _)
opt))
(pattern (~and (~or (quote _) (quote-syntax _) :id) opt)))
(define (optimize-top stx)