From 924532c8fd4d7d0ffe7663475845a5ad4c34ba9c Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Tue, 27 Apr 2004 22:16:12 +0000
Subject: [PATCH] (NUM2INTEGRAL): Test BIGMPZ_FITSP with "!= 0" to avoid
 warning from gcc 3.4.  Reported by Hyperdivision.

---
 libguile/num2integral.i.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);