arith: INT_PTR_MIN overflow bugfix.

* arith.c (int_flo): Don't subtract one from INT_PTR_MIN any
more, since it is now the most negative integer already.

1 files changed, 1 insertions, 1 deletions

diff --git a/arith.c b/arith.c
index be620755..c60835a3 100644
--- a/arith.c
+++ b/arith.c
@@ -2743,7 +2743,7 @@ val int_flo(val f)
   val self = lit("int-flo");
   double d = c_flo(f, self);
 
-  if (d >= INT_PTR_MIN - 1 && d <= INT_PTR_MAX) {
+  if (d >= INT_PTR_MIN && d <= INT_PTR_MAX) {
     cnum n = d;
     if (n < NUM_MIN || n > NUM_MAX)
       return bignum(n);