Skip to content

Commit 53cd489

Browse files
committed
Found the annoying bug in variable lookups that was destroying my life. LAMBDA THE ULTIMATE is complete. Finally. I feel so good. My first lambda.
1 parent 2cc7268 commit 53cd489

File tree

1 file changed

+3
-2
lines changed

1 file changed

+3
-2
lines changed

scheme.adb

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -63,6 +63,8 @@ procedure Scheme is
6363
return Obj;
6464
end;
6565

66+
procedure Print (Obj : in Access_Object); -- REMOVE
67+
6668
True_Singleton : Access_Object;
6769
False_Singleton : Access_Object;
6870
The_Empty_List : Access_Object;
@@ -362,7 +364,7 @@ procedure Scheme is
362364
This_Env : Access_Object := Env;
363365
begin
364366
while This_Env /= The_Empty_List loop
365-
Frame := First_Frame(Env);
367+
Frame := First_Frame(This_Env);
366368
Vars := Frame_Variables(Frame);
367369
Vals := Frame_Values(Frame);
368370
while Vars /= The_Empty_List loop
@@ -375,7 +377,6 @@ procedure Scheme is
375377
end loop;
376378
This_Env := Enclosing_Environment(This_Env);
377379
end loop;
378-
Stderr("Unbound variable '" & To_String(Var.all.Data.Symbol) & "'");
379380
raise Constraint_Error;
380381
end;
381382

0 commit comments

Comments
 (0)