hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

touched evaluator code

Browse Source
This commit is contained in:
hyung-hwan
2014-02-11 09:35:44 +00:00
parent 3e6e44cacc
commit 3e7c4547b1
4 changed files with 477 additions and 383 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
h2/lib/h2-scheme-execute.adb
View File

@ -80,7 +80,7 @@ procedure Execute (Interp: in out Interpreter_Record) is
if Is_Cons(O) then
Reload_Frame (Interp, Opcode_Grouped_Call, O);
else
Pop_Frame (Interp);
Pop_Frame (Interp); -- no <expression> to evaluate
end if;
else
O := Get_Cdr(O); -- next <clause> list
@ -96,7 +96,7 @@ procedure Execute (Interp: in out Interpreter_Record) is
if Is_Cons(O) then
Reload_Frame (Interp, Opcode_Grouped_Call, O);
else
Pop_Frame (Interp);
Pop_Frame (Interp); -- no <expression> to evaluate
end if;
else
Switch_Frame (Interp.Stack, Opcode_Evaluate_Object, Get_Car(R), Nil_Pointer);