Changeset 12177

Timestamp:

10/06/09 08:56:12 (12 years ago)

Author:

Mark Evenson

Message:

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.

File:

• trunk/abcl/src/org/armedbear/lisp/Lisp.java (modified) (1 diff)

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

@@ -278 +278 @@
         catch (Go go)
           {
-            return error(go.getCondition());
+            throw go;
           }
         catch (Throw t)