Index: math.c
===================================================================
--- math.c      (revision 25834)
+++ math.c      (working copy)
@@ -666,14 +666,13 @@
     };
     double d0, d;
     double intpart, fracpart;
-    int n;
     Need_Float(x);
     d0 = RFLOAT_VALUE(x);
     fracpart = modf(d0, &intpart);
     if (fracpart == 0.0 &&
        0 < intpart &&
-       (n = (int)intpart - 1) < numberof(fact_table)) {
-        return DBL2NUM(fact_table[n]);
+        intpart - 1 < (double)numberof(fact_table)) {
+        return DBL2NUM(fact_table[(int)intpart - 1]);
     }
     errno = 0;
     d = tgamma(d0);