# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 764295250 0
# Node ID 13b9d23a243a587a149027ddbc199450aeeede05
# Parent  13aa19ca4b4ff20528390d9b6455bf056a68269f
(Qwholenump): Declared.
(CHECK_NATNUM): Use Qwholenump.

diff -r 13aa19ca4b4f -r 13b9d23a243a src/lisp.h
--- a/src/lisp.h	Mon Mar 21 22:53:17 1994 +0000
+++ b/src/lisp.h	Tue Mar 22 00:14:10 1994 +0000
@@ -771,7 +771,7 @@
 
 #define CHECK_NATNUM(x, i) \
   do { if (XTYPE ((x)) != Lisp_Int || XINT ((x)) < 0)	\
-      x = wrong_type_argument (Qnatnump, (x)); } while (0)
+      x = wrong_type_argument (Qwholenump, (x)); } while (0)
 
 #define CHECK_MARKER(x, i) \
   do { if (XTYPE ((x)) != Lisp_Marker) x = wrong_type_argument (Qmarkerp, (x)); } while (0)
@@ -1100,7 +1100,8 @@
 extern Lisp_Object Qrange_error, Qdomain_error, Qsingularity_error;
 extern Lisp_Object Qoverflow_error, Qunderflow_error;
 
-extern Lisp_Object Qintegerp, Qnumberp, Qnatnump, Qsymbolp, Qlistp, Qconsp;
+extern Lisp_Object Qintegerp, Qnumberp, Qnatnump, Qwholenump;
+extern Lisp_Object Qsymbolp, Qlistp, Qconsp;
 extern Lisp_Object Qstringp, Qarrayp, Qsequencep, Qbufferp;
 extern Lisp_Object Qchar_or_string_p, Qmarkerp, Qvectorp;
 extern Lisp_Object Qinteger_or_marker_p, Qnumber_or_marker_p;