Making the variable lookup error messages better

fitzgen · Feb 27, 2010 · 6d444eb · 6d444eb
1 parent 4c9860d
commit 6d444eb
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/scheme.adb b/scheme.adb
@@ -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;