X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;ds=sidebyside;f=codegen.scm;h=7a12fc2228795b588cfbf117d3f1e7712f282be6;hb=f4ac36dfdebc05a60aa88c5d345d8baac2393147;hp=52df26ece76527068fd89a7c397c3ca632aeaef4;hpb=6b60f721c4be97e0a79e1b16028a5d180eb0ba1e;p=scheme.git

diff --git a/codegen.scm b/codegen.scm
index 52df26e..7a12fc2 100644
--- 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")