found the problem.

This commit is contained in:
Danny Yoo 2013-02-25 19:39:54 -07:00
parent 25de948d1d
commit b12369a58e

View File

@ -292,10 +292,13 @@ 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() {
restart(function(M) {
if (! M.modules[~s].isInvoked) { if (! M.modules[~s].isInvoked) {
M.modules[~s].internalInvoke(M, M.modules[~s].internalInvoke(M,
~a, ~a,
@ -303,11 +306,12 @@ M.modules[~s] =
} else { } else {
~a(); ~a();
} }
})
}, },
function() { function() {
alert('Could not load ~s'); alert('Could not load ~s');
}) })
" }); "
afterName afterName
after after
(symbol->string name) (symbol->string name)