got rid of Interp.Environment and enhanced how to handle environments

This commit is contained in:
2014-01-24 12:48:58 +00:00
parent 18fbe149ad
commit 15ff09019a
5 changed files with 267 additions and 258 deletions

View File

@ -152,8 +152,6 @@ procedure Execute (Interp: in out Interpreter_Record) is
pragma Assert (Get_Cdr(Y) = Nil_Pointer); -- ensure only 1 return value
Y := Get_Car(Y); -- the first value
pragma Assert (Interp.Environment = Get_Frame_Environment(Interp.Stack));
if Y = False_Pointer then
-- <test> evaluated to #f.
X := Get_Cdr(X); -- cons cell containing <alternate>