Changeset 4606

Timestamp:

11/02/03 13:58:45 (19 years ago)

Author:

piso

Message:

CONTROL-ERROR
DIVISION-BY-ZERO

File:

• trunk/j/src/org/armedbear/lisp/make_condition.java (modified) (2 diffs)

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: make_condition.java,v 1.9 2003-11-02 04:36:54 piso Exp $
+ * $Id: make_condition.java,v 1.10 2003-11-02 13:58:45 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -44 +44 @@
         if (type == Symbol.CELL_ERROR)
             return new CellError(initArgs);
+        if (type == Symbol.CONTROL_ERROR)
+            return new ControlError(initArgs);
+        if (type == Symbol.DIVISION_BY_ZERO)
+            return new DivisionByZero(initArgs);
         if (type == Symbol.PACKAGE_ERROR)
             return new PackageError(initArgs);