Fix typo

diff --git a/codegen.scm b/codegen.scm
index 9c692e7c1835c337fa9b9fc66812345e36e89c08..9ffee7739248956d3811a45b0205aeb64a683f32 100644 (file)
--- a/codegen.scm
+++ b/codegen.scm
@@ -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* (