1 files changed, 1 insertions, 1 deletions
diff --git a/arith.c b/arith.c
index 0bd56f30..1420d65d 100644
--- a/arith.c
+++ b/arith.c
@@ -2362,7 +2362,7 @@ val int_flo(val f)
   val self = lit("int-flo");
   double d = c_flo(f, self);
 
-  if (d >= INT_PTR_MAX && d <= INT_PTR_MIN - 1) {
+  if (d >= INT_PTR_MIN - 1 && d <= INT_PTR_MAX) {
     cnum n = d;
     if (n < NUM_MIN || n > NUM_MAX)
       return bignum(n);