suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix define-for-syntax within splicing-syntax-parameterize

Browse Source
This commit is contained in:
Ryan Culpepper 2012-10-16 17:58:17 -04:00
parent 843c722146
commit 67d901ccc4
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/racket/splicing.rkt
View File

@ -190,7 +190,9 @@
(syntax-case body ( begin (syntax-case body ( begin
define-values define-values
define-syntaxes define-syntaxes
define-for-syntaxes begin-for-syntax
module
module*
#%require #%require
#%provide ) #%provide )
[(begin expr ...) [(begin expr ...)
@ -202,7 +204,9 @@
(letrec-syntaxes ([(sp-id) (syntax-local-value (quote-syntax temp-id))] ...) (letrec-syntaxes ([(sp-id) (syntax-local-value (quote-syntax temp-id))] ...)
rhs)))] rhs)))]
[(define-syntaxes . _) body] [(define-syntaxes . _) body]
[(define-for-syntaxes . _) body] [(begin-for-syntax . _) body]
[(module . _) body]
[(module* . _) body]
[(#%require . _) body] [(#%require . _) body]
[(#%provide . _) body] [(#%provide . _) body]
[expr (syntax/loc body [expr (syntax/loc body