This commit is contained in:
Danny Yoo 2011-07-08 13:24:23 -04:00
parent 91c2460a23
commit 4aabe044fc

View File

@ -151,6 +151,7 @@ MACHINE.modules[~s] =
(define (assemble-modinvoke path after)
(let ([name (rewrite-path (path->string path))])
(format "if (! MACHINE.modules[~s].isInvoked) {
MACHINE.modules[~s].invoke(MACHINE,
function() {
@ -161,10 +162,10 @@ MACHINE.modules[~s] =
~a
}
"
path
path
(symbol->string name)
(symbol->string name)
after
after))
after)))