Fix starting off with the wrong stack index

[scheme.git] / codegen.scm

diff --git a/codegen.scm b/codegen.scm
index 52df26ece76527068fd89a7c397c3ca632aeaef4..7a12fc2228795b588cfbf117d3f1e7712f282be6 100644 (file)
--- a/codegen.scm
+++ b/codegen.scm
@@ -541,7 +541,7 @@
 
     (emit "movq %rsp, %rbp")            ; set up the base pointer
     
-    (codegen-expr xform-prog wordsize '())
+    (codegen-expr xform-prog (- wordsize) '())
 
                                        ; exit syscall
     (emit "mov %rax, %rdi")