evaluation still broken.

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))))))
 
 
 

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() {