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

found the problem.

Browse Source
This commit is contained in:
Danny Yoo 2013-02-25 19:39:54 -07:00
parent 25de948d1d
commit b12369a58e
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
whalesong/js-assembler/package.rkt
View File

@ -292,10 +292,13 @@ M.modules[~s] =
(define (assemble-modinvoke path after)
(let ([name (rewrite-path (path->string path))]
[afterName (gensym 'afterName)])
(format "var ~a = function() { ~a };
(format "
var ~a = function() { ~a };
plt.runtime.PAUSE(function(restart) {
plt.runtime.currentModuleLoader(M,
~s,
function() {
restart(function(M) {
if (! M.modules[~s].isInvoked) {
M.modules[~s].internalInvoke(M,
~a,
@ -303,11 +306,12 @@ M.modules[~s] =
} else {
~a();
}
})
},
function() {
alert('Could not load ~s');
})
"
}); "
afterName
after
(symbol->string name)