summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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);