test cases appear to be running again

js-assembler/package.rkt

@@ -273,9 +273,7 @@ MACHINE.modules[~s] =
                           }
                           plt.runtime.setReadyTrue();
                      },
-                         function(err) {
+                     FAIL,
-                             alert(err.message)
-                         },
                      PARAMS);
                    });\n"
                (format "~a" (source-name src)))
@@ -289,8 +287,11 @@ MACHINE.modules[~s] =
   
   
   (define (on-last-src)
-    (fprintf op "plt.runtime.setReadyTrue();")
+    (fprintf op "plt.runtime.ready(
-    (fprintf op "SUCCESS();"))
+                     function() {
+                         plt.runtime.setReadyTrue();
+                         SUCCESS();
+                     });"))
   
   
   (define packaging-configuration

js-assembler/runtime-src/runtime.js

@@ -585,7 +585,7 @@
     // setReadyTrue is called.
     var ready, setReadyTrue, setReadyFalse;
     (function() {
-        var runtimeIsReady = false;
+        var runtimeIsReady = true;
         var readyWaiters = [];
         var notifyWaiter = function(w) {
             w();

tests/browser-harness.rkt

@@ -42,8 +42,12 @@ return (function(succ, fail, params) {
                                                 }
                            };
             return innerInvoke(machine,
-                               function() { plt.runtime.invokeMains(machine, succ, fail); },
+                               function() {
-                               function(MACHINE, e) { fail(e); },
+                                   plt.runtime.invokeMains(machine, succ, fail);
+                               },
+                               function(MACHINE, e) {
+                                   return fail(e);
+                               },
                                myParams);
         });
 });

tests/test-browser-evaluate.rkt

@@ -26,11 +26,12 @@
                     
                     (fprintf op #<<EOF
 return (function(succ, fail, params) {
-            var myParams = { currentDisplayer: function(MACHINE, v) { params.currentDisplayer(v); }};
+            var machine = new plt.runtime.Machine();
-            return innerInvoke(new plt.runtime.Machine(),
+            machine.params.currentDisplayer = 
+                function(MACHINE, v) { params.currentDisplayer(v); };
+            return innerInvoke(machine,
                                succ,
-                               function(MACHINE, exn) { fail(exn); },
+                               function(MACHINE, exn) { return fail(exn); });
-                               myParams);
         });
 });
 EOF