Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Found the annoying bug in variable lookups that was destroying my lif…
…e. LAMBDA THE ULTIMATE is complete. Finally. I feel so good. My first lambda.
  • Loading branch information
fitzgen committed Feb 24, 2010
1 parent 2cc7268 commit 53cd489
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions scheme.adb
Expand Up @@ -63,6 +63,8 @@ procedure Scheme is
return Obj;
end;

procedure Print (Obj : in Access_Object); -- REMOVE

True_Singleton : Access_Object;
False_Singleton : Access_Object;
The_Empty_List : Access_Object;
Expand Down Expand Up @@ -362,7 +364,7 @@ procedure Scheme is
This_Env : Access_Object := Env;
begin
while This_Env /= The_Empty_List loop
Frame := First_Frame(Env);
Frame := First_Frame(This_Env);
Vars := Frame_Variables(Frame);
Vals := Frame_Values(Frame);
while Vars /= The_Empty_List loop
Expand All @@ -375,7 +377,6 @@ procedure Scheme is
end loop;
This_Env := Enclosing_Environment(This_Env);
end loop;
Stderr("Unbound variable '" & To_String(Var.all.Data.Symbol) & "'");
raise Constraint_Error;
end;

Expand Down

0 comments on commit 53cd489

Please sign in to comment.