Permalink
Browse files

Making the variable lookup error messages better

  • Loading branch information...
1 parent 4c9860d commit 6d444eb7ce0e1c16576d1cca0d095e569b3dec3d @fitzgen committed Feb 27, 2010
Showing with 2 additions and 1 deletion.
  1. +2 −1 scheme.adb
View
@@ -384,6 +384,7 @@ 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;
@@ -407,7 +408,7 @@ procedure Scheme is
end loop;
This_Env := Enclosing_Environment(This_Env);
end loop;
- Stderr("Unbound variable '" & To_String(Var.all.Data.Symbol) & "'");
+ Stderr("Unbound variable '" & To_String(Var.all.Data.Symbol) & "' must be defined before set.");
raise Constraint_Error;
end;

0 comments on commit 6d444eb

Please sign in to comment.