Changeset 3881
- Timestamp:
- 09/19/03 01:08:41 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/Primitives.java
r3877 r3881 3 3 * 4 4 * Copyright (C) 2002-2003 Peter Graves 5 * $Id: Primitives.java,v 1.40 3 2003-09-19 00:30:16piso Exp $5 * $Id: Primitives.java,v 1.404 2003-09-19 01:08:41 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 1143 1143 // ### error 1144 1144 private static final Primitive ERROR = new Primitive("error") { 1145 public LispObject execute(LispObject[] args) throws LispError1145 public LispObject execute(LispObject[] args) throws ConditionThrowable 1146 1146 { 1147 1147 if (args.length < 1) … … 1152 1152 throw new PackageError(_format(args, 1)); 1153 1153 if (datum == Symbol.PARSE_ERROR) 1154 throw new ParseError(_format(args, 1));1154 throw new ConditionThrowable(new ParseError(_format(args, 1))); 1155 1155 if (datum == Symbol.PROGRAM_ERROR) 1156 1156 throw new ProgramError(_format(args, 1)); … … 1799 1799 return c instanceof PackageError; 1800 1800 if (type == Symbol.PARSE_ERROR) 1801 return c instanceof ParseError;1801 return c.getCondition() instanceof ParseError; 1802 1802 if (type == Symbol.PROGRAM_ERROR) 1803 1803 return c instanceof ProgramError;
Note: See TracChangeset
for help on using the changeset viewer.