Changeset 8754


Ignore:
Timestamp:
03/12/05 15:57:48 (17 years ago)
Author:
piso
Message:

Don't use LispFloat?.ftruncate().

File:
1 edited

Legend:

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

    r7007 r8754  
    22 * ftruncate.java
    33 *
    4  * Copyright (C) 2004 Peter Graves
    5  * $Id: ftruncate.java,v 1.3 2004-06-05 02:08:28 piso Exp $
     4 * Copyright (C) 2004-2005 Peter Graves
     5 * $Id: ftruncate.java,v 1.4 2005-03-12 15:57:48 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3535    public LispObject execute(LispObject arg) throws ConditionThrowable
    3636    {
    37         if (arg instanceof LispFloat)
    38             return ((LispFloat)arg).ftruncate(Fixnum.ONE);
    3937        LispObject q = arg.truncate(Fixnum.ONE); // an integer
    4038        if (q instanceof Fixnum)
     
    4947        throws ConditionThrowable
    5048    {
    51         if (first instanceof LispFloat)
    52             return ((LispFloat)first).ftruncate(second);
    5349        LispObject q = first.truncate(second); // an integer
    5450        if (q instanceof Fixnum)
Note: See TracChangeset for help on using the changeset viewer.