Changeset 3617

Timestamp:

09/08/03 13:34:38 (20 years ago)

Author:

piso

Message:

ERROR, isConditionOfType(): support PARSE-ERROR.

File:

• trunk/j/src/org/armedbear/lisp/Primitives.java (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/Primitives.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitives.java,v 1.375 2003-09-08 12:38:05 piso Exp $
+ * $Id: Primitives.java,v 1.376 2003-09-08 13:34:38 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -1182 +1182 @@
                 if (datum == Symbol.TYPE_ERROR)
                     throw new TypeError(_format(args, 1));
+                if (datum == Symbol.PARSE_ERROR)
+                    throw new ParseError(_format(args, 1));
                 if (datum == Symbol.PROGRAM_ERROR)
                     throw new ProgramError(_format(args, 1));
@@ -1821 +1823 @@
         if (type == Symbol.PACKAGE_ERROR)
             return c instanceof PackageError;
+        if (type == Symbol.PARSE_ERROR)
+            return c instanceof ParseError;
         if (type == Symbol.PROGRAM_ERROR)
             return c instanceof ProgramError;