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

trying to add enough to the web implementation to run conform. Hitting an error that I didn't see in the simulator; investigating

Browse Source
This commit is contained in:
dyoo 2011-03-15 08:17:11 -04:00
parent 91f244526e
commit 432d850370
2 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
runtime.js
View File

@ -185,6 +185,28 @@ var Primitives = (function() {
return typeof(firstArg) === 'string';
},
'symbol->string': function(arity, returnLabel) {
var firstArg = MACHINE.env[MACHINE.env.length-1];
return firstArg;
},
'box': function(arity, returnLabel) {
var firstArg = MACHINE.env[MACHINE.env.length-1];
return [firstArg];
},
'set-box!': function(arity, returnLabel) {
var firstArg = MACHINE.env[MACHINE.env.length-1];
var secondArg = MACHINE.env[MACHINE.env.length-2];
firstArg[0] = secondArg;
return;
},
'void': function(arity, returnLabel) {
return;
},
'call/cc': new Closure(callCCEntry,
1,
[],

2
test-browser-evaluate.rkt
View File

@ -144,5 +144,5 @@
#;(test (read (open-input-file "tests/conform/program0.sch"))
(test (read (open-input-file "tests/conform/program0.sch"))
(port->string (open-input-file "tests/conform/expected0.txt")))