Changeset 3924

Timestamp:

09/20/03 14:15:51 (20 years ago)

Author:

piso

Message:

SIGNAL

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitives.java,v 1.417 2003-09-20 00:39:25 piso Exp $
+ * $Id: Primitives.java,v 1.418 2003-09-20 14:15:51 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -1170 +1170 @@
             if (args.length < 1)
                 throw new ConditionThrowable(new WrongNumberOfArgumentsException(this));
+            if (args[0] instanceof Condition)
+                throw new ConditionThrowable((Condition)args[0]);
             throw new ConditionThrowable(new SimpleCondition());
         }