trying to trace down why we're not breaking

whalesong/js-assembler/runtime-src/baselib-functions.js

@@ -300,15 +300,15 @@
 
 
     var makePrimitiveProcedure = function (name, arity, f) {
-        var proc = makeClosure(name,
+        var impl = function(M) {
-                               arity,
+            if(--M.cbt < 0) {
-                               function(M) {
+                throw impl;
-                                   M.cbt--;
+            }
-                                   M.v = f(M);
+            M.v = f(M);
-                                   M.e.length -= M.a;
+            M.e.length -= M.a;
-                                   return M.c.pop().label(M);
+            return M.c.pop().label(M);
-                               },
+        };
-                               []);
+        var proc = makeClosure(name, arity, impl, []);
         // Also, record the raw implementation of the function.
         proc._i = f;
         return proc;

whalesong/js-assembler/runtime-src/baselib-symbols.js

@@ -15,18 +15,16 @@
         this.val = val;
     };
 
-    var symbolCache = {};
+    var symbolCache = new baselib.Dict();
 
-    var hasOwnProperty = {}.hasOwnProperty;
-    
     // makeSymbol: string -> Symbol.
     // Interns a symbol.
     var makeSymbol = function (val) {
         // To ensure that we can eq? symbols with equal values.
-        if (!(hasOwnProperty.call(symbolCache,val))) {
+        if (!(symbolCache.has(val))) {
-            symbolCache[val] = new Symbol(val);
+            symbolCache.set(val, new Symbol(val));
         }
-        return symbolCache[val];
+        return symbolCache.get(val);
     };
     
     Symbol.prototype.equals = function (other, aUnionFind) {
@@ -89,4 +87,4 @@
     exports.makeSymbol = makeSymbol;
     exports.isSymbol = isSymbol;
 
-}(this.plt.baselib));
+}(this.plt.baselib));

whalesong/js-assembler/runtime-src/runtime.js

@@ -478,11 +478,13 @@
             MACHINE.running = false;
             MACHINE.params.currentErrorHandler(
                 MACHINE,
-                makeExnBreak("User break.",
+                new baselib.exceptions.RacketError(
-                             MACHINE.captureContinuationMarks(),
+                    "User break",
-                             // FIXME: capture the continuation as well,
+                    makeExnBreak("User break.",
-                             // rather than just hold false.
+                                 MACHINE.captureContinuationMarks(),
-                             false));
+                                 // FIXME: capture the continuation as well,
+                                 // rather than just hold false.
+                                 false)));
             return true;
         }
         return false;
@@ -554,7 +556,6 @@
         var that = this;
         var thunk = initialJump;
         var startTime = (new Date()).valueOf();
-        that.cbt = STACK_LIMIT_ESTIMATE;
         that.params.numBouncesBeforeYield =
             that.params.maxNumBouncesBeforeYield;
         that.running = true;

whalesong/repl-prototype/htdocs/repl.js

@@ -104,7 +104,7 @@ $(document).ready(function() {
     };
 
     var interruptEvaluation = function() {
-        console.log('interrupt evaluation');
+        console.log('scheduling an interruption');
         M.scheduleBreak();
     };