Fix a bug in predicate patterns.

Author: dvanhorn

langs/outlaw/compile-expr.rkt

@@ -368,7 +368,7 @@
           (seq (Lea r15 r)
                (Push r15) ; rp
                (Push rax) ; arg (saved for the moment)
-               (compile-e e (list* #f #f c) g #f)
+               (compile-e e (list* #f #f (append cm c)) g #f)
                (Pop r15)  ;; HERE
                (Push rax)
                (Push r15)

langs/outlaw/test/test-runner.rkt

@@ -677,7 +677,12 @@
   (check-equal? (run '(* 8 3)) 24)
   (check-equal? (run '(* 16 2)) 32)
   (check-equal? (run '(* 10 5)) 50)
-  (check-equal? (run '(* 64 2)) 128))
+  (check-equal? (run '(* 64 2)) 128)
+  (check-equal? (run '(let ((pred (lambda (x) #t)))
+                        (match 0
+                          [(and (? pred) _) #t]
+                          [_ #f])))
+                #t))
 
 
 (define (test-runner-io run)