Changeset 3551


Ignore:
Timestamp:
09/02/03 16:14:16 (19 years ago)
Author:
piso
Message:

MOD is now implemented in numbers.lisp.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Primitives.java

    r3550 r3551  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.362 2003-09-02 15:07:58 piso Exp $
     5 * $Id: Primitives.java,v 1.363 2003-09-02 16:14:16 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    9595    // Primitive2
    9696    private static final int MEMBER                     = 58;
    97     private static final int MOD                        = 59;
    98     private static final int RPLACA                     = 60;
    99     private static final int RPLACD                     = 61;
    100     private static final int SET                        = 62;
     97    private static final int RPLACA                     = 59;
     98    private static final int RPLACD                     = 60;
     99    private static final int SET                        = 61;
    101100
    102101    private Primitives()
     
    163162
    164163        definePrimitive2("member", MEMBER);
    165         definePrimitive2("mod", MOD);
    166164        definePrimitive2("rplaca", RPLACA);
    167165        definePrimitive2("rplacd", RPLACD);
     
    418416                return NIL;
    419417            }
    420             case MOD:                           // ### mod
    421                 return new Fixnum(Fixnum.getValue(first) %
    422                     Fixnum.getValue(second));
    423418            case RPLACA:                        // ### rplaca
    424419                first.setCar(second);
Note: See TracChangeset for help on using the changeset viewer.