Changeset 3346


Ignore:
Timestamp:
08/12/03 13:12:30 (18 years ago)
Author:
piso
Message:

isEqualTo(), isNotEqualTo(): complex support.

File:
1 edited

Legend:

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

    r3341 r3346  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Fixnum.java,v 1.43 2003-08-12 02:06:34 piso Exp $
     5 * $Id: Fixnum.java,v 1.44 2003-08-12 13:12:30 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    282282        catch (ClassCastException e) {
    283283            // obj is not a fixnum.
    284             if (obj instanceof Bignum)
     284            if (obj instanceof LispFloat)
     285                return (float) value == LispFloat.getValue(obj);
     286            if (obj instanceof Complex)
     287                return obj.isEqualTo(this);
     288            if ((obj.getType() & TYPE_NUMBER) != 0)
    285289                return false;
    286             if (obj instanceof Ratio)
    287                 return false;
    288             if (obj instanceof LispFloat)
    289                 return (float) value == LispFloat.getValue(obj);
    290290            throw new TypeError(obj, "number");
    291291        }
     
    299299        catch (ClassCastException e) {
    300300            // obj is not a fixnum.
    301             if (obj instanceof Bignum)
     301            if (obj instanceof LispFloat)
     302                return (float) value != LispFloat.getValue(obj);
     303            if (obj instanceof Complex)
     304                return obj.isNotEqualTo(this);
     305            if ((obj.getType() & TYPE_NUMBER) != 0)
    302306                return true;
    303             if (obj instanceof Ratio)
    304                 return true;
    305             if (obj instanceof LispFloat)
    306                 return (float) value != LispFloat.getValue(obj);
    307307            throw new TypeError(obj, "number");
    308308        }
Note: See TracChangeset for help on using the changeset viewer.