diff options
author | Kevin Ryde <user42@zip.com.au> | 2004-02-21 00:10:47 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2004-02-21 00:10:47 +0000 |
commit | 2c0334eccd91e1c4f593135b9e75e0e5c7dd4277 (patch) | |
tree | 2ece9a1a97c29e30fe884d253aaeaba41bdd4096 /libguile/num2float.i.c | |
parent | b114eafe802de9189f627e41d9b6a5294dc84311 (diff) | |
download | guile-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.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); |