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

[Mark Evenson]

Author: mevenson
Date: Tue Oct  6 04:56:12 2009
New Revision: 12177

Log:
Revert r12153 behavior to rethrow org.armedbear.lisp.Go out of INTERACTIVE-EVAL.

Due to Erik's recent work [r12170] there should never be a Go thrown
by non-local transfers of control, so this is no longer necessary.
Additionally this code was causing an incorrect additional error in
the top-level that was uncessary and confusing.



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

Modified: trunk/abcl/src/org/armedbear/lisp/Lisp.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Lisp.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/Lisp.java	Tue Oct  6 04:56:12 2009
@@ -277,7 +277,7 @@
           }
         catch (Go go)
           {
-            return error(go.getCondition());
+            throw go;
           }
         catch (Throw t)
           {