diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-11-15 22:45:31 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-11-15 22:45:31 +0000 |
| commit | 5263f2c9a832992875b3921a9ce5af93c85ee7f3 (patch) | |
| tree | 78036ad6fb94f7f2bb1705938c5135ed25e775f7 /src/lisp.h | |
| parent | 5546eead0988be2844673d16eeedaf5fce548380 (diff) | |
| download | emacs-5263f2c9a832992875b3921a9ce5af93c85ee7f3.tar.gz | |
(NATNUMP): New macro.
(CHECK_NATNUM): Use that macro instead of its expansion.
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lisp.h b/src/lisp.h index d0e7d82a5e1..4ac94558336 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -748,6 +748,7 @@ typedef unsigned char UCHAR; #else #define NUMBERP(x) (INTEGERP (x)) #endif +#define NATNUMP(x) (INTEGERP (x) && XINT (x) >= 0) #define INTEGERP(x) (XTYPE ((x)) == Lisp_Int) #define SYMBOLP(x) (XTYPE ((x)) == Lisp_Symbol) @@ -829,8 +830,7 @@ typedef unsigned char UCHAR; do { if (!INTEGERP ((x))) x = wrong_type_argument (Qintegerp, (x)); } while (0) #define CHECK_NATNUM(x, i) \ - do { if (!INTEGERP ((x)) || XINT ((x)) < 0) \ - x = wrong_type_argument (Qwholenump, (x)); } while (0) + do { if (!NATNUMP (x)) x = wrong_type_argument (Qwholenump, (x)); } while (0) #define CHECK_MARKER(x, i) \ do { if (!MARKERP ((x))) x = wrong_type_argument (Qmarkerp, (x)); } while (0) |