diff options
| -rw-r--r-- | src/data.c | 4 | ||||
| -rw-r--r-- | src/lisp.h | 2 |
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 |