# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 784946531 0
# Node ID 18b408b05189c2dd840b0946ddfcbe0b07b23614
# Parent  e0672d4cf470cff985ddbc7f37c994b17b87b48c
(syms_of_data): Set Qwholenump as function, not variable.
(Fnatnump): Use NATNUMP macro.

diff -r e0672d4cf470 -r 18b408b05189 src/data.c
--- a/src/data.c	Wed Nov 16 00:30:25 1994 +0000
+++ b/src/data.c	Wed Nov 16 00:42:11 1994 +0000
@@ -329,7 +329,7 @@
   (obj)
      Lisp_Object obj;
 {
-  if (INTEGERP (obj) && XINT (obj) >= 0)
+  if (NATNUMP (obj))
     return Qt;
   return Qnil;
 }
@@ -2345,7 +2345,7 @@
   defsubr (&Ssub1);
   defsubr (&Slognot);
 
-  Fset (Qwholenump, Qnatnump);
+  XSYMBOL (Qwholenump)->function = XSYMBOL (Qnatnump)->function;
 }
 
 SIGTYPE