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

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

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