diff options
-rw-r--r-- | libguile/num2float.i.c | 2 |
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); |