1 files changed, 2 insertions, 2 deletions

diff --git a/src/data.c b/src/data.c
index 3e651414e68..cb0e9a825fb 100644
--- a/src/data.c
+++ b/src/data.c
@@ -2460,13 +2460,13 @@ cons_to_unsigned (Lisp_Object c, uintmax_t max)
   uintmax_t val IF_LINT (= 0);
   if (INTEGERP (c))
     {
-      valid = 0 <= XINT (c);
+      valid = XINT (c) >= 0;
       val = XINT (c);
     }
   else if (FLOATP (c))
     {
       double d = XFLOAT_DATA (c);
-      if (0 <= d
+      if (d >= 0
           && d < (max == UINTMAX_MAX ? (double) UINTMAX_MAX + 1 : max + 1))
         {
           val = d;