Fix PR 9918.

svn: r12480

collects/scheme/match/compiler.ss

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

collects/tests/match/examples.ss

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