Add missing core form.
original commit: 2d6fc203508445de04511bab038f7c6e69e65be0
This commit is contained in:
parent
1eca551202
commit
df0d87c948
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user