summaryrefslogtreecommitdiff
path: root/libguile/num2float.i.c
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2004-02-21 00:10:47 +0000
committerKevin Ryde <user42@zip.com.au>2004-02-21 00:10:47 +0000
commit2c0334eccd91e1c4f593135b9e75e0e5c7dd4277 (patch)
tree2ece9a1a97c29e30fe884d253aaeaba41bdd4096 /libguile/num2float.i.c
parentb114eafe802de9189f627e41d9b6a5294dc84311 (diff)
downloadguile-2c0334eccd91e1c4f593135b9e75e0e5c7dd4277.tar.gz
(NUM2FLOAT): Expand isfinite to !xisinf, as per previous change to numbers.c.
Diffstat (limited to 'libguile/num2float.i.c')
-rw-r--r--libguile/num2float.i.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/num2float.i.c b/libguile/num2float.i.c
index 5ef3a30cf..bfcf4bd10 100644
--- a/libguile/num2float.i.c
+++ b/libguile/num2float.i.c
@@ -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);