From a1f4873ff8f3753014166001b15ee401bbf79f44 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Sun, 3 Mar 2013 16:20:05 -0700 Subject: [PATCH] hurrah, toplevels assignment to globals appears to be working. --- whalesong/compiler/compiler.rkt | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/whalesong/compiler/compiler.rkt b/whalesong/compiler/compiler.rkt index 5be1f61..01ab1ae 100644 --- a/whalesong/compiler/compiler.rkt +++ b/whalesong/compiler/compiler.rkt @@ -2106,11 +2106,15 @@ empty))) 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) (make-PopEnvironment (make-Const (sub1 (length ids))) (make-Const 0)) - empty-instruction-sequence))))) + empty-instruction-sequence) + + ;; Finally, set the target to void. + + (make-AssignImmediate target (make-Const (void)))))))