Changeset 3530

Timestamp:

08/26/03 16:19:28 (20 years ago)

Author:

piso

Message:

SUCCESSOR, PREDECESSOR

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.355 2003-08-26 14:38:57 piso Exp $
+ * $Id: Primitives.java,v 1.356 2003-08-26 16:19:28 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -389 +389 @@
                 return arg.typep(Symbol.SIMPLE_STRING);
             case SUCCESSOR:                     // ### 1+
-                return arg.add(Fixnum.ONE);
+                return arg.incr();
             case PREDECESSOR:                   // ### 1-
-                return arg.subtract(Fixnum.ONE);
+                return arg.decr();
             case VALUES_LIST:                   // ### values-list
                 return values(arg.copyToArray());