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

test cases seem to be running again

Browse Source
This commit is contained in:
Danny Yoo 2011-09-06 13:58:21 -04:00
parent 7d1d93f8ac
commit 55ca576a43
3 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
js-assembler/package.rkt
View File

@ -266,7 +266,7 @@ MACHINE.modules[~s] =
plt.runtime.setReadyFalse();
(")
(assemble/write-invoke stmts op)
(fprintf op ")(plt.runtime.currentMachine,
(fprintf op ")(MACHINE,
function() {
if (window.console && window.console.log) {
window.console.log('loaded ' + ~s);
@ -469,9 +469,6 @@ var invokeMainModule = function() {
invoke(MACHINE,
function() {
var startTime = new Date().valueOf();
if (window.console && window.console.log) {
window.console.log("invoking main modules");
}
plt.runtime.invokeMains(
MACHINE,
function() {

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

@ -619,7 +619,10 @@
// Executes all programs that have been labeled as a main module
var invokeMains = function(machine, succ, fail) {
runtime.ready(function invokeMain() {
runtime.ready(function () {
if (window.console && window.console.log) {
window.console.log("invoking main modules");
}
setReadyFalse();
machine = machine || runtime.currentMachine;
succ = succ || function() {};

5
tests/browser-harness.rkt
View File

@ -37,7 +37,10 @@
(fprintf op #<<EOF
return (function(succ, fail, params) {
var machine = new plt.runtime.Machine();
var myParams = { currentDisplayer : function(MACHINE, v) { params.currentDisplayer(v); } };
var myParams = { currentDisplayer : function(MACHINE, v) {
params.currentDisplayer(v);
}
};
return innerInvoke(machine,
function() { plt.runtime.invokeMains(machine, succ, fail); },
function(MACHINE, e) { fail(e); },