Permalink
Browse files

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 53cd489cdfa8b1e77d5f38523f8fb9fb1169c17d
Showing with 3 additions and 2 deletions.
  1. +3 −2 scheme.adb
View
@@ -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;
@@ -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
@@ -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;

0 comments on commit 53cd489

Please sign in to comment.