X-Git-Url: https://git.lukelau.me/?p=scheme.git;a=blobdiff_plain;f=codegen.scm;h=748781d9f4cde883830176a93c651172c8ec81f4;hp=7518d8396527ec44c9291f854aea6d128c33ab08;hb=6b91111c8d3fd8e617bece8d69f6c98d5e6ef3cb;hpb=639c992ea2c89ef0b6421279a76e637c7f469517

diff --git a/codegen.scm b/codegen.scm
index 7518d83..748781d 100644
--- a/codegen.scm
+++ b/codegen.scm
@@ -502,7 +502,6 @@
 	(if (eqv? 'var (ast-type x))
 	    (list (cons x inner-offset))
 	    (begin
-;	      (display "LITERALliteral\n")
 	      (emit "cmpq $~a, ~a(%rbp)" x inner-offset)
 	      (emit "jne ~a" jne-label)
 	      '() ))))
@@ -874,7 +873,7 @@
 	 (xform-prog (cdr lambdas-res)))
 
 					; verify pattern matches are total
-;    (verify-cases data-layouts type-annotated)
+    (verify-cases data-layouts type-annotated)
 
     (emit "\t.global _start")
     (emit "\t.text")