From 49a7be479d1df53f9acac78a3b36a1fc26f9fea3 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Thu, 30 Jun 2011 19:07:58 -0400
Subject: [PATCH] may have tracked a very ugly bug with multiple-values
 again...

---
 compiler/compiler.rkt | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/compiler/compiler.rkt b/compiler/compiler.rkt
index d57af6e..035780c 100644
--- a/compiler/compiler.rkt
+++ b/compiler/compiler.rkt
@@ -1775,8 +1775,13 @@
               ,(make-PushEnvironment n (LetVoid-boxes? exp))))
            body-code
            after-body-code
+           
+           ;; There may be multiple values coming back at this point.
+           ;; We need to route around those.
            (make-instruction-sequence 
-            `(,(make-PopEnvironment (make-Const n) (make-Const 0))))
+            `(,(make-PopEnvironment (make-Const n) (make-SubtractArg
+                                                    (make-Reg 'argcount)
+                                                    (make-Const 1)))))
            after-let))))