Changeset 3780


Ignore:
Timestamp:
09/14/03 17:19:22 (19 years ago)
Author:
piso
Message:

MIN, MAX, COMPLEX: use realp().

File:
1 edited

Legend:

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

    r3778 r3780  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.395 2003-09-14 17:14:22 piso Exp $
     5 * $Id: Primitives.java,v 1.396 2003-09-14 17:19:22 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    214214                    throw new WrongNumberOfArgumentsException("MIN");
    215215                LispObject result = args[0];
    216                 if ((result.getType() & TYPE_REAL) == 0)
     216                if (!result.realp())
    217217                    throw new TypeError(result, "real");
    218218                for (int i = 1; i < args.length; i++) {
     
    226226                    throw new WrongNumberOfArgumentsException("MAX");
    227227                LispObject result = args[0];
    228                 if ((result.getType() & TYPE_REAL) == 0)
     228                if (!result.realp())
    229229                    throw new TypeError(result, "real");
    230230                for (int i = 1; i < args.length; i++) {
     
    46304630            if (arg instanceof LispFloat)
    46314631                return Complex.getInstance(arg, LispFloat.ZERO);
    4632             if ((arg.getType() & TYPE_REAL) != 0)
     4632            if (arg.realp())
    46334633                return arg;
    46344634            throw new TypeError(arg, "real number");
Note: See TracChangeset for help on using the changeset viewer.