e must be in a non-tail position in match expr (#98)

Author: Amozolin

langs/knock/compile.rkt

@@ -194,7 +194,7 @@
 ;; Expr [Listof Pat] [Listof Expr] CEnv Bool -> Asm
 (define (compile-match e ps es c t?)
   (let ((done (gensym)))  
-    (seq (compile-e e c t?)
+    (seq (compile-e e c #f)
          (Push rax) ; save away to be restored by each clause
          (compile-match-clauses ps es (cons #f c) done t?)
          (Jmp 'raise_error_align)