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) (define (assemble-modinvoke path after)
(format "if (! MACHINE.modules[~s].isInvoked) { (let ([name (rewrite-path (path->string path))])
MACHINE.modules[~s].invoke(MACHINE, (format "if (! MACHINE.modules[~s].isInvoked) {
function() { MACHINE.modules[~s].invoke(MACHINE,
~a function() {
}, ~a
MACHINE.params.currentErrorHandler); },
} else { MACHINE.params.currentErrorHandler);
~a } else {
} ~a
" }
path "
path (symbol->string name)
after (symbol->string name)
after)) after
after)))