X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/7b0e2f853fcd88c58715fd159923d50dfdeb9cba..908589fd28437a9b0995b103e22ce5e4d421eb8a:/src/data.c

diff --git a/src/data.c b/src/data.c
index 6622088b64..b20d1b4c8a 100644
--- a/src/data.c
+++ b/src/data.c
@@ -2337,13 +2337,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;