X-Git-Url: https://git.lukelau.me/?a=blobdiff_plain;f=codegen.scm;h=c514cd1b4d34853523928c00314a0ffdb5825b90;hb=277cd3c8e4ad4c727e041bf870a79862640c39b3;hp=9c692e7c1835c337fa9b9fc66812345e36e89c08;hpb=b1fae591d1981a511bd19218a6c85872344915c6;p=scheme.git

diff --git a/codegen.scm b/codegen.scm
index 9c692e7..c514cd1 100644
--- a/codegen.scm
+++ b/codegen.scm
@@ -23,8 +23,8 @@
       (apply max sizes)))
   
   (case type
-    ['Int wordsize]
-    ['Bool wordsize]
+    ['int wordsize]
+    ['bool wordsize]
     [else
      (let ([adt (assoc type data-layouts)])
        (if adt
@@ -168,7 +168,7 @@
 				(map cdr stack-sizes)))]
 					; 0  2  6  8  16
 	   [relative-offsets (map - totals (map cdr stack-sizes))]
-	   [absolute-offsets (map (lambda (x) (- si x)) b)])
+	   [absolute-offsets (map (lambda (x) (- si x)) relative-offsets)])
       (map cons (map car stack-sizes) absolute-offsets)))
   
   (let* (