[armedbear-cvs] r11526 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Jan  3 00:08:31 2009
New Revision: 11526

Log:
Make Throw.java do as Lisp.java and LispThread.java: create a human-readable tag for the 
error message.

Modified:
   trunk/abcl/src/org/armedbear/lisp/Throw.java

Modified: trunk/abcl/src/org/armedbear/lisp/Throw.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Throw.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/Throw.java	Sat Jan  3 00:08:31 2009
@@ -58,7 +58,7 @@
     {
         try {
             return new ControlError("Attempt to throw to the nonexistent tag " +
-                                    tag + ".");
+                                    tag.writeToString() + ".");
         }
         catch (Throwable t) {
             Debug.trace(t);