Use mpz_sgn rather than comparisons against 0

* src/data.c (Fmod): Use mpz_sgn.
* src/lisp.h (NATNUMP): Use mpz_sgn.

2 files changed, 3 insertions, 3 deletions

diff --git a/src/data.c b/src/data.c
index 6512e7e6706..7d701fde0e2 100644
--- a/src/data.c
+++ b/src/data.c
@@ -3251,8 +3251,8 @@ Both X and Y must be numbers or markers.  */)
       mpz_mod (result, *xmp, *ymp);
 
       /* Fix the sign if needed.  */
-      cmpr = mpz_cmp_si (result, 0);
-      cmpy = mpz_cmp_si (*ymp, 0);
+      cmpr = mpz_sgn (result);
+      cmpy = mpz_sgn (*ymp);
       if (cmpy < 0 ? cmpr > 0 : cmpr < 0)
         mpz_add (result, result, *ymp);
 
diff --git a/src/lisp.h b/src/lisp.h
index 9047d217249..6726d69fced 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2772,7 +2772,7 @@ INLINE bool
 NATNUMP (Lisp_Object x)
 {
   if (BIGNUMP (x))
-    return mpz_cmp_si (XBIGNUM (x)->value, 0) >= 0;
+    return mpz_sgn (XBIGNUM (x)->value) >= 0;
   return FIXNUMP (x) && 0 <= XFIXNUM (x);
 }
 INLINE bool