diff options
| author | Tom Tromey <tom@tromey.com> | 2018-08-09 13:21:45 -0600 |
|---|---|---|
| committer | Tom Tromey <tom@tromey.com> | 2018-08-09 13:28:37 -0600 |
| commit | f822a2516d88eeb2118fbbc8554f155e86dfd74e (patch) | |
| tree | 061d1fc09449a94c1ec0364057388529b1a4c49a /src/lisp.h | |
| parent | f966753727741883c5d81a288ce5c20cebe3bad0 (diff) | |
| download | emacs-f822a2516d88eeb2118fbbc8554f155e86dfd74e.tar.gz | |
Use mpz_sgn rather than comparisons against 0
* src/data.c (Fmod): Use mpz_sgn.
* src/lisp.h (NATNUMP): Use mpz_sgn.
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 2 |
1 files changed, 1 insertions, 1 deletions
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 |