suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixing installvalues

Browse Source
This commit is contained in:
Danny Yoo 2011-05-14 23:32:56 -04:00
parent 6c50b88703
commit ec3b443f2a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler.rkt
View File

@ -1843,7 +1843,9 @@
(make-instruction-sequence (make-instruction-sequence
`(,(make-AssignImmediateStatement to from)))) `(,(make-AssignImmediateStatement to from))))
(build-list count (lambda: ([i : Natural]) (build-list count (lambda: ([i : Natural])
(make-EnvLexicalReference (+ i (InstallValue-depth exp)) (make-EnvLexicalReference (+ i
(InstallValue-depth exp)
(sub1 count))
(InstallValue-box? exp)))) (InstallValue-box? exp))))
(cons (make-Reg 'val) (cons (make-Reg 'val)
(build-list (sub1 count) (lambda: ([i : Natural]) (build-list (sub1 count) (lambda: ([i : Natural])