suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

test cases appear to be running again

Browse Source
This commit is contained in:
Danny Yoo 2011-09-06 14:33:22 -04:00
parent 55ca576a43
commit f39b192fee
4 changed files with 26 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
js-assembler/package.rkt
View File

@ -267,16 +267,14 @@ MACHINE.modules[~s] =
(")
(assemble/write-invoke stmts op)
(fprintf op ")(MACHINE,
function() {
if (window.console && window.console.log) {
window.console.log('loaded ' + ~s);
}
plt.runtime.setReadyTrue();
},
function(err) {
alert(err.message)
},
PARAMS);
function() {
if (window.console && window.console.log) {
window.console.log('loaded ' + ~s);
}
plt.runtime.setReadyTrue();
},
FAIL,
PARAMS);
});\n"
(format "~a" (source-name src)))
(define stop-time (current-inexact-milliseconds))
@ -289,8 +287,11 @@ MACHINE.modules[~s] =
(define (on-last-src)
(fprintf op "plt.runtime.setReadyTrue();")
(fprintf op "SUCCESS();"))
(fprintf op "plt.runtime.ready(
function() {
plt.runtime.setReadyTrue();
SUCCESS();
});"))
(define packaging-configuration
@ -310,7 +311,7 @@ MACHINE.modules[~s] =
(fprintf op "var invoke = (function(MACHINE, SUCCESS, FAIL, PARAMS) {")
(fprintf op " plt.runtime.ready(function() {")
(fprintf op "plt.runtime.setReadyFalse();")
(fprintf op " plt.runtime.setReadyFalse();")
(make (list (make-MainModuleSource source-code))
packaging-configuration)
(fprintf op " });");

2
js-assembler/runtime-src/runtime.js
View File

@ -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();

8
tests/browser-harness.rkt
View File

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

9
tests/test-browser-evaluate.rkt
View File

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