mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

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

Browse source
This commit is contained in:
Kevin Ryde 2004-02-21 00:10:47 +00:00
parent b114eafe80
commit 2c0334eccd
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/num2float.i.c
View file

@ -8,7 +8,7 @@ NUM2FLOAT (SCM num, unsigned long int pos, const char *s_caller)
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);