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

7
js-assembler/package.rkt
View File

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