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

fixed

Browse Source
This commit is contained in:
Danny Yoo 2011-07-08 13:24:23 -04:00
parent 91c2460a23
commit 4aabe044fc
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
js-assembler/package.rkt
View File

@ -151,20 +151,21 @@ MACHINE.modules[~s] =
(define (assemble-modinvoke path after)
(format "if (! MACHINE.modules[~s].isInvoked) {
MACHINE.modules[~s].invoke(MACHINE,
function() {
~a
},
MACHINE.params.currentErrorHandler);
} else {
~a
}
"
path
path
after
after))
(let ([name (rewrite-path (path->string path))])
(format "if (! MACHINE.modules[~s].isInvoked) {
MACHINE.modules[~s].invoke(MACHINE,
function() {
~a
},
MACHINE.params.currentErrorHandler);
} else {
~a
}
"
(symbol->string name)
(symbol->string name)
after
after)))