From 6a35aae56e67073ce670cb30dace3a734eb50a7f Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Wed, 6 Mar 2013 16:09:30 -0700 Subject: [PATCH] fixing namespacing issues --- whalesong/js-assembler/package.rkt | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) 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];"