diff options
| author | Tom Tromey | 2018-08-09 13:21:45 -0600 |
|---|---|---|
| committer | Tom Tromey | 2018-08-09 13:28:37 -0600 |
| commit | f822a2516d88eeb2118fbbc8554f155e86dfd74e (patch) | |
| tree | 061d1fc09449a94c1ec0364057388529b1a4c49a /src/lisp.h | |
| parent | f966753727741883c5d81a288ce5c20cebe3bad0 (diff) | |
| download | emacs-f822a2516d88eeb2118fbbc8554f155e86dfd74e.tar.gz emacs-f822a2516d88eeb2118fbbc8554f155e86dfd74e.zip | |
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 | |||
| 2772 | NATNUMP (Lisp_Object x) | 2772 | NATNUMP (Lisp_Object x) |
| 2773 | { | 2773 | { |
| 2774 | if (BIGNUMP (x)) | 2774 | if (BIGNUMP (x)) |
| 2775 | return mpz_cmp_si (XBIGNUM (x)->value, 0) >= 0; | 2775 | return mpz_sgn (XBIGNUM (x)->value) >= 0; |
| 2776 | return FIXNUMP (x) && 0 <= XFIXNUM (x); | 2776 | return FIXNUMP (x) && 0 <= XFIXNUM (x); |
| 2777 | } | 2777 | } |
| 2778 | INLINE bool | 2778 | INLINE bool |