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

Adding method to simplify load-and-invoking of modules.

Browse Source
This commit is contained in:
Danny Yoo 2013-03-27 16:15:13 -06:00
parent 569058c2f2
commit 8e0bf9d2b3
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
whalesong/js-assembler/runtime-src/runtime.js
View File

@ -342,6 +342,27 @@
};
Machine.prototype.loadAndInvoke = function(moduleName, success, fail) {
var that = this;
runtime.currentModuleLoader(
that,
moduleName,
function() {
that.modules[moduleName] = that.installedModules[moduleName]();
that.modules[moduleName].invoke(that,
function() {
success();
},
function(M, err) {
fail(err);
});
},
function() {
fail();
});
};
// Try to get the continuation mark key used for procedure application tracing.
var getTracedAppKey = function(MACHINE) {
if (MACHINE.modules['whalesong/lang/private/traced-app.rkt']) {
@ -824,8 +845,7 @@
var loop = function() {
if (mainModules.length > 0) {
var nextModuleName = mainModules.shift();
machine.modules[nextModuleName] = machine.installedModules[nextModuleName]();
machine.modules[nextModuleName].invoke(machine, loop, fail);
machine.loadAndInvoke(nextModuleName, loop, fail);
} else {
setReadyTrue();
succ();