Changeset 5739


Ignore:
Timestamp:
02/10/04 14:06:25 (17 years ago)
Author:
piso
Message:

Minor cleanup.

File:
1 edited

Legend:

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

    r5114 r5739  
    22 * Complex.java
    33 *
    4  * Copyright (C) 2003 Peter Graves
    5  * $Id: Complex.java,v 1.25 2003-12-13 00:58:51 piso Exp $
     4 * Copyright (C) 2003-2004 Peter Graves
     5 * $Id: Complex.java,v 1.26 2004-02-10 14:06:25 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3838    {
    3939        if (!realpart.realp())
    40             return signal(new TypeError(realpart, "real number"));
     40            return signal(new TypeError(realpart, Symbol.REAL));
    4141        if (!imagpart.realp())
    42             return signal(new TypeError(imagpart, "real number"));
     42            return signal(new TypeError(imagpart, Symbol.REAL));
    4343        if (realpart instanceof LispFloat)
    4444            imagpart = LispFloat.coerceToFloat(imagpart);
Note: See TracChangeset for help on using the changeset viewer.