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

fixing namespacing issues

Browse Source
This commit is contained in:
Danny Yoo 2013-03-06 16:09:30 -07:00
parent d8fd834442
commit 6a35aae56e
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
whalesong/js-assembler/package.rkt
View File

@ -174,12 +174,11 @@
[i (in-naturals)]) [i (in-naturals)])
(string-append (string-append
(format "modrec.getNamespace().set(~s,exports[~s]);\n" (format "modrec.getNamespace().set(~s,exports[~s]);\n"
(symbol->string (ModuleProvide-external-name modprovide)) (symbol->string (ModuleProvide-internal-name modprovide))
(symbol->string (ModuleProvide-internal-name modprovide))) (symbol->string (ModuleProvide-external-name modprovide)))
;(format "modrec.prefix[~a]=exports[~s];\n" (format "modrec.prefix[~a]=exports[~s];\n"
; i i
; (symbol->string (ModuleProvide-external-name modprovide)))) (symbol->string (ModuleProvide-external-name modprovide)))))))
))))
(define (get-prefix-code bytecode) (define (get-prefix-code bytecode)
(format "modrec.prefix=[~a];modrec.prefix.names=[~a];modrec.prefix.internalNames=[~a];" (format "modrec.prefix=[~a];modrec.prefix.names=[~a];modrec.prefix.internalNames=[~a];"