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

fixed some typos

Browse Source
This commit is contained in:
Danny Yoo 2012-02-27 18:31:13 -05:00
parent 95e8a08079
commit 8dae95902c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
js-assembler/package.rkt
View File

@ -176,7 +176,7 @@
(symbol->string (ModuleProvide-external-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-internal-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];"
@ -185,12 +185,12 @@
",") ",")
(string-join (map (lambda (n) (string-join (map (lambda (n)
(format "~s" (symbol->string (format "~s" (symbol->string
(ModuleProvide-external-name n)))) (ModuleProvide-internal-name n))))
(get-provided-names bytecode)) (get-provided-names bytecode))
",") ",")
(string-join (map (lambda (n) (string-join (map (lambda (n)
(format "~s" (symbol->string (format "~s" (symbol->string
(ModuleProvide-internal-name n)))) (ModuleProvide-external-name n))))
(get-provided-names bytecode)) (get-provided-names bytecode))
","))) ",")))