From f4ac36dfdebc05a60aa88c5d345d8baac2393147 Mon Sep 17 00:00:00 2001
From: Luke Lau <luke_lau@icloud.com>
Date: Tue, 30 Jul 2019 23:57:23 +0100
Subject: [PATCH] Fix starting off with the wrong stack index

And thus fix botched backtraces
---
 codegen.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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")
-- 
2.30.2