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

ensure thst case' expansion is an expression

Browse Source 
svn: r7856
This commit is contained in:
Matthew Flatt 2007-11-29 01:53:13 +00:00
parent 600089413b
commit d42b8a68df
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scheme/private/more-scheme.ss
View File

@ -21,9 +21,9 @@
(lambda (x) (lambda (x)
(syntax-case x (else) (syntax-case x (else)
((_ v) ((_ v)
(syntax (begin v (void)))) (syntax (#%expression (begin v (void)))))
((_ v (else e1 e2 ...)) ((_ v (else e1 e2 ...))
(syntax/loc x (begin v e1 e2 ...))) (syntax/loc x (#%expression (begin v e1 e2 ...))))
((_ v ((k ...) e1 e2 ...)) ((_ v ((k ...) e1 e2 ...))
(syntax/loc x (if (case-test v (k ...)) (begin e1 e2 ...) (void)))) (syntax/loc x (if (case-test v (k ...)) (begin e1 e2 ...) (void))))
((_ v ((k ...) e1 e2 ...) c1 c2 ...) ((_ v ((k ...) e1 e2 ...) c1 c2 ...)