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

need to correct namespaces.

Browse Source
This commit is contained in:
Danny Yoo 2013-03-04 13:17:55 -07:00
parent 57034cf5a5
commit e302015fc3
3 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
whalesong/js-assembler/assemble-expression.rkt
View File

@ -105,4 +105,7 @@
(format "M.primitives[~s]" (symbol->string (PrimitivesReference-name op)))]
[(GlobalsReference? op)
(format "M.globals[~s]" (symbol->string (GlobalsReference-name op)))]))
(format "(M.globals[~s]!==undefined?M.globals[~s]:M.params.currentNamespace.get(~s))"
(symbol->string (GlobalsReference-name op))
(symbol->string (GlobalsReference-name op))
(symbol->string (GlobalsReference-name op)))]))

5
whalesong/repl-prototype/htdocs/repl.js
View File

@ -19,9 +19,12 @@ $(document).ready(function() {
// We then want to initialize the language module.
var initializeLanguage = function(afterLanguageInitialization) {
// Load up the language.
M.modules['whalesong/wescheme/lang/semantics.rkt'].invoke(
var semanticsModule =
M.modules['whalesong/wescheme/lang/semantics.rkt'];
semanticsModule.invoke(
M,
function() {
M.params.currentNamespace = semanticsModule.getNamespace();
console.log("Environment initialized.");
afterLanguageInitialization();
},

2
whalesong/repl-prototype/server.rkt
View File

@ -103,7 +103,7 @@
(write-repl-runtime-files)
;(write-repl-runtime-files)
(serve/servlet start
#:servlet-path "/compile"
#:extra-files-paths (list htdocs)