From ec3b443f2a43303fdcd150fe86ab8c4a1d0e18f9 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Sat, 14 May 2011 23:32:56 -0400 Subject: [PATCH] fixing installvalues --- compiler.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/compiler.rkt b/compiler.rkt index ff3ca72..5cbdd7e 100644 --- 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])