(syms_of_data): Set Qwholenump as function, not variable.

(Fnatnump): Use NATNUMP macro.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/data.c b/src/data.c
index f444dad403a..0350ecc3156 100644
--- a/src/data.c
+++ b/src/data.c
@@ -329,7 +329,7 @@ DEFUN ("natnump", Fnatnump, Snatnump, 1, 1, 0,
   (obj)
      Lisp_Object obj;
 {
-  if (INTEGERP (obj) && XINT (obj) >= 0)
+  if (NATNUMP (obj))
     return Qt;
   return Qnil;
 }
@@ -2345,7 +2345,7 @@ syms_of_data ()
   defsubr (&Ssub1);
   defsubr (&Slognot);
 
-  Fset (Qwholenump, Qnatnump);
+  XSYMBOL (Qwholenump)->function = XSYMBOL (Qnatnump)->function;
 }
 
 SIGTYPE