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

fix some bugs

Browse Source 
svn: r17251
This commit is contained in:
Sam Tobin-Hochstadt 2009-12-09 23:10:37 +00:00
parent a9b36c93ae
commit 8ef5ad42c4
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/scheme/match/define-forms.ss
View File

@ -2,6 +2,7 @@
(require (for-syntax scheme/base
unstable/syntax
unstable/sequence
syntax/parse
"parse.ss"
"parse-helper.ss"
@ -77,18 +78,19 @@
#'(let () body1 body ...)]
[(_ ([pat exp] rest-pats ...) body1 body ...)
#`(match*/derived
#,stx
(exp)
#,stx
[(pat) #,(syntax/loc stx (match-let* (rest-pats ...) body1 body ...))])]))
(define-syntax (match-letrec stx)
(syntax-parse stx
[(_ ((~and cl [pat exp]) ...) body1 body ...)
(syntax/loc stx (let ()
(quasisyntax/loc stx
(let ()
#,@(for/list ([c (in-syntax #'(cl ...))]
[p (in-syntax #'(pat ...))]
[e (in-syntax #'(exp ...))])
(syntax/loc c (match-define p e)))
(quasisyntax/loc c (match-define #,p #,e)))
body1 body ...))]))
(define-syntax (match-define stx)