diff --git a/whalesong/js-assembler/package.rkt b/whalesong/js-assembler/package.rkt index 7bec670..6c62a55 100644 --- a/whalesong/js-assembler/package.rkt +++ b/whalesong/js-assembler/package.rkt @@ -174,12 +174,11 @@ [i (in-naturals)]) (string-append (format "modrec.getNamespace().set(~s,exports[~s]);\n" - (symbol->string (ModuleProvide-external-name modprovide)) - (symbol->string (ModuleProvide-internal-name modprovide))) - ;(format "modrec.prefix[~a]=exports[~s];\n" - ; i - ; (symbol->string (ModuleProvide-external-name modprovide)))) - )))) + (symbol->string (ModuleProvide-internal-name modprovide)) + (symbol->string (ModuleProvide-external-name modprovide))) + (format "modrec.prefix[~a]=exports[~s];\n" + i + (symbol->string (ModuleProvide-external-name modprovide))))))) (define (get-prefix-code bytecode) (format "modrec.prefix=[~a];modrec.prefix.names=[~a];modrec.prefix.internalNames=[~a];"