found the problem.
This commit is contained in:
parent
25de948d1d
commit
b12369a58e
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user