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

toplevel lookup should be cheaper

Browse Source
This commit is contained in:
Danny Yoo 2012-02-27 18:34:44 -05:00
parent 8dae95902c
commit 9aa1ac12d8
3 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
js-assembler/package.rkt
View File

@ -171,9 +171,9 @@
(for/list ([modprovide (get-provided-names bytecode)] (for/list ([modprovide (get-provided-names bytecode)]
[i (in-naturals)]) [i (in-naturals)])
(string-append (string-append
(format "modrec.getNamespace().set(~s,exports[~s]);\n" ; (format "modrec.getNamespace().set(~s,exports[~s]);\n"
(symbol->string (ModuleProvide-internal-name modprovide)) ; (symbol->string (ModuleProvide-internal-name modprovide))
(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-external-name modprovide))))))) (symbol->string (ModuleProvide-external-name modprovide)))))))

1
js-assembler/runtime-src/baselib-modules.js
View File

@ -88,7 +88,6 @@
}; };
ModuleRecord.prototype.finalizeModuleInvokation = function () { ModuleRecord.prototype.finalizeModuleInvokation = function () {
var i, len = this.prefix.names.length;
this.namespace.refreshPrefixMapping(); this.namespace.refreshPrefixMapping();
}; };

2
version.rkt
View File

@ -7,4 +7,4 @@
(provide version) (provide version)
(: version String) (: version String)
(define version "1.188") (define version "1.189")