X-Git-Url: https://git.lukelau.me/?p=scheme.git;a=blobdiff_plain;f=codegen.scm;h=52c494bb233fb728ff907fa5fed63db57fb05478;hp=c73677325f899e064200b678182e6290d9fe6b2d;hb=b2dd1447521cd266a2a6fe1c0c48c5bff8a3c072;hpb=6cad928374127b2fae65d7023fd31a725f4bd1d9

diff --git a/codegen.scm b/codegen.scm
index c736773..52c494b 100644
--- a/codegen.scm
+++ b/codegen.scm
@@ -267,6 +267,7 @@
     (emit "~a:" exit-label)))
 
 (define (codegen-expr e si env)
+  (emit "# ~a" e)
   (case (ast-type e)
     ('closure (codegen-closure (cadr e) (caddr e) si env))
     ('app
@@ -483,6 +484,8 @@
     (emit "movq %rax, (%rsi)")))
 
 (define (codegen program)
+  (set! cur-label 0)
+  (set! cur-lambda 0)
   (let* ((extract-res-0 (extract-strings program))
 	 (strings (car extract-res-0))
 	 (extract-res-1 (extract-lambdas (cdr extract-res-0)))