diff options
author | Kevin Ryde <user42@zip.com.au> | 2004-04-27 22:16:12 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2004-04-27 22:16:12 +0000 |
commit | 924532c8fd4d7d0ffe7663475845a5ad4c34ba9c (patch) | |
tree | 259d8c38c0f16fa8ae6224a841a062c950075be4 | |
parent | e45fb186184ccedc7bd65f78f099e1a06875c818 (diff) | |
download | guile-924532c8fd4d7d0ffe7663475845a5ad4c34ba9c.tar.gz |
(NUM2INTEGRAL): Test BIGMPZ_FITSP with "!= 0" to
avoid warning from gcc 3.4. Reported by Hyperdivision.
-rw-r--r-- | libguile/num2integral.i.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/num2integral.i.c b/libguile/num2integral.i.c index 7d792ce55..4581d8b65 100644 --- a/libguile/num2integral.i.c +++ b/libguile/num2integral.i.c @@ -79,7 +79,7 @@ NUM2INTEGRAL (SCM num, unsigned long int pos, const char *s_caller) else { /* make sure the result will fit */ - if (BIGMPZ_FITSP) + if (BIGMPZ_FITSP != 0) { int fits_p = BIGMPZ_FITSP (SCM_I_BIG_MPZ (num)); scm_remember_upto_here_1 (num); |