From 8dae95902c852a066e356bf4a1b99d6be5049981 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Mon, 27 Feb 2012 18:31:13 -0500 Subject: [PATCH] fixed some typos --- js-assembler/package.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/js-assembler/package.rkt b/js-assembler/package.rkt index 288889e..727ed81 100644 --- a/js-assembler/package.rkt +++ b/js-assembler/package.rkt @@ -176,7 +176,7 @@ (symbol->string (ModuleProvide-external-name modprovide))) (format "modrec.prefix[~a]=exports[~s];\n" i - (symbol->string (ModuleProvide-internal-name modprovide))))))) + (symbol->string (ModuleProvide-external-name modprovide))))))) (define (get-prefix-code bytecode) (format "modrec.prefix=[~a];modrec.prefix.names=[~a];modrec.prefix.internalNames=[~a];" @@ -185,12 +185,12 @@ ",") (string-join (map (lambda (n) (format "~s" (symbol->string - (ModuleProvide-external-name n)))) + (ModuleProvide-internal-name n)))) (get-provided-names bytecode)) ",") (string-join (map (lambda (n) (format "~s" (symbol->string - (ModuleProvide-internal-name n)))) + (ModuleProvide-external-name n)))) (get-provided-names bytecode)) ",")))