Changeset 3877


Ignore:
Timestamp:
09/19/03 00:30:16 (19 years ago)
Author:
piso
Message:

HANDLER-BIND, HANDLER-CASE: use ConditionThrowable?.getCondition().

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Primitives.java

    r3871 r3877  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.402 2003-09-19 00:05:11 piso Exp $
     5 * $Id: Primitives.java,v 1.403 2003-09-19 00:30:16 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    17321732                            handler = obj;
    17331733                        LispObject[] handlerArgs = new LispObject[1];
    1734                         handlerArgs[0] = new JavaObject(c);
     1734                        handlerArgs[0] = c.getCondition();
    17351735                         // Might not return.
    17361736                        funcall(handler, handlerArgs, thread);
     
    17691769                        if (numArgs == 1) {
    17701770                            LispObject[] handlerArgs = new LispObject[1];
    1771                             handlerArgs[0] = new JavaObject(c);
     1771                            handlerArgs[0] = c.getCondition();
    17721772                            return funcall(handler, handlerArgs, thread);
    17731773                        }
Note: See TracChangeset for help on using the changeset viewer.