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