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

fixing some name issues from earlier

Browse Source
This commit is contained in:
Danny Yoo 2011-02-09 18:33:36 -05:00
parent b9d4133e54
commit 226f962195
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
assemble.rkt
View File

@ -301,7 +301,7 @@
(format "(typeof(~a) === 'function')" (format "(typeof(~a) === 'function')"
(first assembled-inputs))] (first assembled-inputs))]
[(extend-environment) [(extend-environment)
(format "(new ExtendedEnvironment(~a, ~a)" (format "new ExtendedEnvironment(~a, ~a)"
(second assembled-inputs) (second assembled-inputs)
(first assembled-inputs))] (first assembled-inputs))]
[(lookup-variable-value) [(lookup-variable-value)

11
runtime.js
View File

@ -39,7 +39,7 @@ var ExtendedEnvironment = function(parent, vs) {
vs = vs[1]; vs = vs[1];
} }
this.valss = parent.valss.slice(); this.valss = parent.valss.slice();
this.valss.shift(vals); this.valss.unshift(vals);
this.globalBindings = parent.globalBindings; this.globalBindings = parent.globalBindings;
}; };
@ -55,7 +55,8 @@ var Closure = function(env, label) {
// adaptToJs: closure -> (array (X -> void) -> void) // adaptToJs: closure -> (array (X -> void) -> void)
// Converts closures to functions that can be called from the // Converts closures to functions that can be called from the
// JavaScript toplevel. // JavaScript toplevel.
Closure.adaptToJs = function() { Closure.prototype.adaptToJs = function() {
var that = this;
return function(args, k) { return function(args, k) {
var oldEnv = MACHINE.env; var oldEnv = MACHINE.env;
var oldCont = MACHINE.cont; var oldCont = MACHINE.cont;
@ -64,11 +65,11 @@ Closure.adaptToJs = function() {
var oldVal = MACHINE.val; var oldVal = MACHINE.val;
trampoline( trampoline(
function() { function() {
var proc = _envLookup("gauss", MACHINE.env); var proc = that;
MACHINE.proc = proc; MACHINE.proc = proc;
MACHINE.argl = undefined; MACHINE.argl = undefined;
for(var i = args.length - 1; i >= 0; i--) { for(var i = args.length - 1; i >= 0; i--) {
MACHINE.argl = _list(args[i], MACHINE.argl); MACHINE.argl = [args[i], MACHINE.argl];
} }
MACHINE.cont = function() { MACHINE.cont = function() {
@ -81,7 +82,7 @@ Closure.adaptToJs = function() {
k(result); k(result);
}; };
_closureEntry(proc)(); proc.label();
}, },
function() { function() {
}); });