guile-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

num2float isfinite


From: Kevin Ryde
Subject: num2float isfinite
Date: Mon, 16 Feb 2004 08:43:25 +1000
User-agent: Gnus/5.110002 (No Gnus v0.2) Emacs/21.3 (gnu/linux)

FYI,
        * num2float.i.c (NUM2FLOAT): Expand isfinite to !xisinf, as per
        previous change to numbers.c.

--- num2float.i.c.~1.7.~        2003-04-05 11:42:20.000000000 +1000
+++ num2float.i.c       2004-02-16 08:40:33.000000000 +1000
@@ -8,7 +8,7 @@
   else if (SCM_BIGP (num))
     { /* bignum */
       FTYPE res = mpz_get_d (SCM_I_BIG_MPZ (num));
-      if (isfinite (res))
+      if (! xisinf (res))
        return res;
       else
        scm_out_of_range (s_caller, num);

reply via email to

[Prev in Thread] Current Thread [Next in Thread]