Fix struct match bug.

Author: dvanhorn

langs/outlaw/compile-expr.rkt

@@ -340,7 +340,7 @@
               cm2))])])]
     [(PStruct n ps)
      (match (compile-struct-patterns ps c g (cons #f cm) next 1)
-       [(list i f cm)
+       [(list i f cm1)
         (let ((fail (gensym)))
           (list
            (seq (Mov r8 rax)
@@ -358,7 +358,7 @@
                 (Label fail)
                 (Add rsp (*8 (length cm)))
                 (Jmp next))
-           cm))])]
+           cm1))])]
 
     [(PPred e)
      (let ((fail (gensym 'fail)))

langs/outlaw/test/test-runner.rkt

@@ -604,6 +604,12 @@
   (check-equal? (run '(let ((x 1)) x x x)) 1)
   (check-equal? (run '(match 1 [1 2 3])) 3)
   (check-equal? (run '(system-type)) (system-type))
+  (check-equal? (run '(struct Foo (x))
+                     '(struct Bar (y))
+                     '(match (Bar 1)
+                        [(Foo x) #f]
+                        [(Bar x) x]))
+                1)                       
   )