Changeset 3919


Ignore:
Timestamp:
09/20/03 00:39:25 (19 years ago)
Author:
piso
Message:

SIGNAL, isConditionOfType()

File:
1 edited

Legend:

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

    r3912 r3919  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.416 2003-09-20 00:12:37 piso Exp $
     5 * $Id: Primitives.java,v 1.417 2003-09-20 00:39:25 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    11701170            if (args.length < 1)
    11711171                throw new ConditionThrowable(new WrongNumberOfArgumentsException(this));
    1172             throw new SimpleCondition();
     1172            throw new ConditionThrowable(new SimpleCondition());
    11731173        }
    11741174    };
     
    18301830            return false;
    18311831        }
     1832        if (type == Symbol.CONDITION)
     1833            return true;
    18321834        if (type == Symbol.SIMPLE_CONDITION)
    1833             return c instanceof SimpleCondition;
     1835            return c.getCondition() instanceof SimpleCondition;
    18341836        if (type == Symbol.DIVISION_BY_ZERO)
    18351837            return c.getCondition() instanceof DivisionByZero;
Note: See TracChangeset for help on using the changeset viewer.