Changeset 13092


Ignore:
Timestamp:
12/11/10 23:52:35 (10 years ago)
Author:
ehuelsmann
Message:

Store the original Java error in the "cause" field
of the UnhandledCondition? error, *if* the cause is a Java exception.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/Interpreter.java

    r13091 r13092  
    493493        @Override
    494494        public LispObject execute(LispObject first, LispObject second)
    495             throws UnhandledCondition
    496495        {
    497496            final LispObject condition = first;
     
    526525                }
    527526            }
    528             throw new UnhandledCondition(condition);
     527            UnhandledCondition uc = new UnhandledCondition(condition);
     528            if (condition.typep(Symbol.JAVA_EXCEPTION) != NIL)
     529                uc.initCause((Throwable)JavaException
     530                        .JAVA_EXCEPTION_CAUSE.execute(condition).javaInstance());
     531            throw uc;
    529532        }
    530533    };
Note: See TracChangeset for help on using the changeset viewer.