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

fixing bug in the assembler; it didn't see the target from PushControlFrame

Browse Source
This commit is contained in:
Danny Yoo 2011-03-10 15:02:42 -05:00
parent 4a60a852e7
commit 55d84eec95
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
assemble.rkt
View File

@ -171,7 +171,7 @@ EOF
[(PopEnvironment? stmt) [(PopEnvironment? stmt)
empty] empty]
[(PushControlFrame? stmt) [(PushControlFrame? stmt)
empty] (list (PushControlFrame-label stmt))]
[(PopControlFrame? stmt) [(PopControlFrame? stmt)
empty]) empty])
(loop (rest stmts))))])))) (loop (rest stmts))))]))))

8
runtime.js
View File

@ -99,6 +99,14 @@ var Primitives = (function() {
'null?': function(arity, returnLabel) { 'null?': function(arity, returnLabel) {
var firstArg = MACHINE.env[MACHINE.env.length-1]; var firstArg = MACHINE.env[MACHINE.env.length-1];
return firstArg === NULL; return firstArg === NULL;
},
'add1': function(arity, returnLabel) {
var firstArg = MACHINE.env[MACHINE.env.length-1];
return firstArg + 1;
},
'sub1': function(arity, returnLabel) {
var firstArg = MACHINE.env[MACHINE.env.length-1];
return firstArg - 1;
} }
}; };
})(); })();