summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2004-04-27 22:16:12 +0000
committerKevin Ryde <user42@zip.com.au>2004-04-27 22:16:12 +0000
commit924532c8fd4d7d0ffe7663475845a5ad4c34ba9c (patch)
tree259d8c38c0f16fa8ae6224a841a062c950075be4
parente45fb186184ccedc7bd65f78f099e1a06875c818 (diff)
downloadguile-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.c2
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);