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

syntax/parse: fixed bug in #:do (with expression)

Browse Source
This commit is contained in:
Ryan Culpepper 2010-11-26 19:05:40 -07:00
parent eb1c164aca
commit 8605fecaf3
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/syntax/parse/private/runtime.rkt
View File

@ -308,15 +308,15 @@
[(no-shadow e)
(let ([ee (local-expand #'e (syntax-local-context)
(kernel-form-identifier-list))])
(syntax-case ee (begin define-values defines-syntaxes)
(syntax-case ee (begin define-values define-syntaxes)
[(begin d ...)
#'(begin (no-shadow d) ...)]
[(define-values . _)
(check-shadow ee)
ee]
(begin (check-shadow ee)
ee)]
[(define-syntaxes . _)
(check-shadow ee)
ee]
(begin (check-shadow ee)
ee)]
[_
ee]))]))