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

hurrah, toplevels assignment to globals appears to be working.

Browse Source
This commit is contained in:
Danny Yoo 2013-03-03 16:20:05 -07:00
parent 7026c7aa24
commit a1f4873ff8
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
whalesong/compiler/compiler.rkt
View File

@ -2106,11 +2106,15 @@
empty))) empty)))
empty-instruction-sequence) empty-instruction-sequence)
;; Finally, make sure any multiple values are off the stack. ;; Make sure any multiple values are off the stack.
(if (> (length ids) 1) (if (> (length ids) 1)
(make-PopEnvironment (make-Const (sub1 (length ids))) (make-PopEnvironment (make-Const (sub1 (length ids)))
(make-Const 0)) (make-Const 0))
empty-instruction-sequence))))) empty-instruction-sequence)
;; Finally, set the target to void.
(make-AssignImmediate target (make-Const (void)))))))