File tree Expand file tree Collapse file tree 1 file changed +3
-2
lines changed Expand file tree Collapse file tree 1 file changed +3
-2
lines changed Original file line number Diff line number Diff line change @@ -63,6 +63,8 @@ procedure Scheme is
63
63
return Obj;
64
64
end ;
65
65
66
+ procedure Print (Obj : in Access_Object); -- REMOVE
67
+
66
68
True_Singleton : Access_Object;
67
69
False_Singleton : Access_Object;
68
70
The_Empty_List : Access_Object;
@@ -362,7 +364,7 @@ procedure Scheme is
362
364
This_Env : Access_Object := Env;
363
365
begin
364
366
while This_Env /= The_Empty_List loop
365
- Frame := First_Frame(Env );
367
+ Frame := First_Frame(This_Env );
366
368
Vars := Frame_Variables(Frame);
367
369
Vals := Frame_Values(Frame);
368
370
while Vars /= The_Empty_List loop
@@ -375,7 +377,6 @@ procedure Scheme is
375
377
end loop ;
376
378
This_Env := Enclosing_Environment(This_Env);
377
379
end loop ;
378
- Stderr(" Unbound variable '" & To_String(Var.all .Data.Symbol) & " '" );
379
380
raise Constraint_Error;
380
381
end ;
381
382
You can’t perform that action at this time.
0 commit comments