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

Fix PR 9918.

Browse Source 
svn: r12480
This commit is contained in:
Sam Tobin-Hochstadt 2008-11-17 23:58:05 +00:00
parent 1bb01c05cd
commit d1fca9c04a
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scheme/match/compiler.ss
View File

@ -431,7 +431,7 @@
(if (Row-unmatch (car blocks)) (if (Row-unmatch (car blocks))
#`(let/ec k #`(let/ec k
(let ([#,(Row-unmatch (car blocks)) (let ([#,(Row-unmatch (car blocks))
(lambda () (k (#,esc)))]) (lambda () (call-with-values #,esc k))])
rhs)) rhs))
#'rhs))]) #'rhs))])
;; then compile the rest, with our name as the esc ;; then compile the rest, with our name as the esc

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

@ -577,5 +577,11 @@
[(vector a b) a] [(vector a b) a]
[else 'bad])) [else 'bad]))
(comp '(1 2)
(call-with-values
(lambda ()
(match 'foo [_ (=> skip) (skip)] [_ (values 1 2)]))
list))
)) ))