fixing installvalues

2011-05-14 23:32:56 -04:00 · 2011-05-14 23:32:56 -04:00 · ec3b443f2a
commit ec3b443f2a
parent 6c50b88703
1 changed files with 3 additions and 1 deletions
--- a/compiler.rkt
+++ b/compiler.rkt
@ -1843,7 +1843,9 @@
                           (make-instruction-sequence
                            `(,(make-AssignImmediateStatement to from))))
                         (build-list count (lambda: ([i : Natural])
-                                             (make-EnvLexicalReference (+ i (InstallValue-depth exp))
+                                             (make-EnvLexicalReference (+ i 
+									  (InstallValue-depth exp)
+									  (sub1 count))
                                                                       (InstallValue-box? exp))))
                         (cons (make-Reg 'val) 
                               (build-list (sub1 count) (lambda: ([i : Natural])