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

Fix PR 9540

Browse Source 
svn: r10448
This commit is contained in:
Sam Tobin-Hochstadt 2008-06-24 23:52:16 +00:00
parent 0b35fc7406
commit 15eb016e25
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -70,6 +70,7 @@
(syntax/loc stx (let name ([pat exp] ...) body ...))] (syntax/loc stx (let name ([pat exp] ...) body ...))]
;; now the real cases ;; now the real cases
[(_ name ([pat exp] ...) . body) [(_ name ([pat exp] ...) . body)
(identifier? #'name)
(syntax/loc stx (letrec ([name (match-lambda** ((pat ...) . body))]) (syntax/loc stx (letrec ([name (match-lambda** ((pat ...) . body))])
(name exp ...)))] (name exp ...)))]
[(_ ([pat exp] ...) . body) [(_ ([pat exp] ...) . body)

4
collects/tests/match/examples.ss
View File

@ -561,5 +561,9 @@
[(list x y ... x z ...) [(list x y ... x z ...)
(list y z)])) (list y z)]))
(comp '(1 2)
(match-let ([(vector a b) (vector 1 2)])
(list a b)))
)) ))