Changeset 3881


Ignore:
Timestamp:
09/19/03 01:08:41 (20 years ago)
Author:
piso
Message:

A ParseError? is now a Condition.

File:
1 edited

Legend:

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

    r3877 r3881  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.403 2003-09-19 00:30:16 piso Exp $
     5 * $Id: Primitives.java,v 1.404 2003-09-19 01:08:41 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    11431143    // ### error
    11441144    private static final Primitive ERROR = new Primitive("error") {
    1145         public LispObject execute(LispObject[] args) throws LispError
     1145        public LispObject execute(LispObject[] args) throws ConditionThrowable
    11461146        {
    11471147            if (args.length < 1)
     
    11521152                    throw new PackageError(_format(args, 1));
    11531153                if (datum == Symbol.PARSE_ERROR)
    1154                     throw new ParseError(_format(args, 1));
     1154                    throw new ConditionThrowable(new ParseError(_format(args, 1)));
    11551155                if (datum == Symbol.PROGRAM_ERROR)
    11561156                    throw new ProgramError(_format(args, 1));
     
    17991799            return c instanceof PackageError;
    18001800        if (type == Symbol.PARSE_ERROR)
    1801             return c instanceof ParseError;
     1801            return c.getCondition() instanceof ParseError;
    18021802        if (type == Symbol.PROGRAM_ERROR)
    18031803            return c instanceof ProgramError;
Note: See TracChangeset for help on using the changeset viewer.