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

fix splicing-syntax-parameterize with begin (patch from Stevie) --- should be merged to 4.1.4

Browse Source 
svn: r13187
This commit is contained in:
Matthew Flatt 2009-01-17 12:27:06 +00:00
parent e54e5cf6d6
commit c33a201c43
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/scheme/splicing.ss
View File

@ -118,9 +118,12 @@
#f)]) #f)])
;; Extract expanded body out of `body': ;; Extract expanded body out of `body':
(syntax-case body (quote) (syntax-case body (quote)
[(ls _ _ (quoute body)) [(ls _ _ (quote body))
(let ([body #'body]) (let ([body #'body])
(syntax-case body (begin define-values define-syntaxes define-for-syntaxes) (syntax-case body (begin define-values define-syntaxes define-for-syntaxes)
[(begin expr ...)
(syntax/loc body
(begin (expand-ssp-body (sp-id ...) (temp-id ...) expr) ...))]
[(define-values (id ...) rhs) [(define-values (id ...) rhs)
(syntax/loc body (syntax/loc body
(define-values (id ...) (define-values (id ...)