Fix bug in match reported by jay.

svn: r18563

collects/scheme/match/compiler.ss

@@ -206,7 +206,7 @@
                         #:when (for/and ([seen-var seen])
                                         (not (free-identifier=? bv (car seen-var)))))
                bv)])
-       (with-syntax ([(success? var ...) (append (generate-temporaries '(success?)) vars)])
+       (with-syntax ([(esc* success? var ...) (append (generate-temporaries '(esc* success?)) vars)])
          ;; do the or matching, and bind the results to the appropriate
          ;; variables
          #`(let ([esc* (lambda () (values #f #,@(for/list ([v vars]) #'#f)))])

collects/tests/match/examples.ss

@@ -633,5 +633,15 @@
            (match (make-pose 1 2 3)
              [(struct pose (x y a)) "Gotcha!"]
              [else "Epic fail!"])))
+   
+   (comp #f
+         (match (list 'a 'b 'c)
+           [(or (list a b)
+                (and (app (lambda _ #f) b)
+                     (or (and (app (lambda _ #f) a)
+                              (list))
+                         (list a))))
+            #t]
+           [_ #f]))
 
 ))