From c5ccbe32e54a914cf17642088ece9180d299849d Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@hashcollision.org>
Date: Tue, 16 Apr 2013 17:45:57 -0600
Subject: [PATCH] evaluation still broken.

---
 whalesong/compiler/compiler.rkt         | 10 +++++-----
 whalesong/repl-prototype/htdocs/repl.js |  1 +
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/whalesong/compiler/compiler.rkt b/whalesong/compiler/compiler.rkt
index acb60e7..5263c34 100644
--- a/whalesong/compiler/compiler.rkt
+++ b/whalesong/compiler/compiler.rkt
@@ -109,11 +109,11 @@
      (make-PopEnvironment (make-SubtractArg (make-Reg 'argcount) (make-Const 1))
                           (make-Const 0))     
      after-pop-prompt:
-     last:))))
-
-  
-
-
+     last:
+     ;; Finally, return to the success continuation on the stack.
+     (make-AssignImmediate 'proc (make-ControlStackLabel))
+     (make-PopControlFrame)
+     (make-Goto (make-Reg 'proc))))))
 
 
 
diff --git a/whalesong/repl-prototype/htdocs/repl.js b/whalesong/repl-prototype/htdocs/repl.js
index a7c09f2..d4667ad 100644
--- a/whalesong/repl-prototype/htdocs/repl.js
+++ b/whalesong/repl-prototype/htdocs/repl.js
@@ -162,6 +162,7 @@
             var compiledCodes = compiledResult.compiledCodes;
             forEachK(compiledCodes,
                      function(code, k) {
+                         console.log(code);
                          // Indirect eval usage here is deliberate.
                          var codeFunction = (0,eval)(code);
                          var onGoodEvaluation = function() {