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)))
(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))
",")))