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

fix pattern literals in rewrite-bodies

Browse Source 
svn: r7753
This commit is contained in:
Matthew Flatt 2007-11-17 14:07:19 +00:00
parent 5daf443674
commit 1c0d42570b
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/lang/htdp-langs.ss
View File

@ -930,7 +930,7 @@
[(null? bodies) null] [(null? bodies) null]
[else [else
(let ([body (car bodies)]) (let ([body (car bodies)])
(syntax-case body (require define-values define-syntaxes require-for-syntax provide) (syntax-case body (#%require define-values define-syntaxes define-values-for-syntax #%provide)
[(define-values (new-vars ...) e) [(define-values (new-vars ...) e)
(cons body (loop (cdr bodies)))] (cons body (loop (cdr bodies)))]
[(define-syntaxes (new-vars ...) e) [(define-syntaxes (new-vars ...) e)
@ -939,8 +939,6 @@
(cons body (loop (cdr bodies)))] (cons body (loop (cdr bodies)))]
[(#%require specs ...) [(#%require specs ...)
(cons body (loop (cdr bodies)))] (cons body (loop (cdr bodies)))]
[(require-for-syntax specs ...)
(cons body (loop (cdr bodies)))]
[(#%provide specs ...) [(#%provide specs ...)
(loop (cdr bodies))] (loop (cdr bodies))]
[else [else