(NUM2INTEGRAL): Test BIGMPZ_FITSP with "!= 0" to
authorKevin Ryde <user42@zip.com.au>
Tue, 27 Apr 2004 22:16:12 +0000 (22:16 +0000)
committerKevin Ryde <user42@zip.com.au>
Tue, 27 Apr 2004 22:16:12 +0000 (22:16 +0000)
avoid warning from gcc 3.4.  Reported by Hyperdivision.

libguile/num2integral.i.c

index 7d792ce..4581d8b 100644 (file)
@@ -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);