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

(Fnatnump): Use NATNUMP macro.

(syms_of_data): Set Qwholenump as function, not variable.
(Fnatnump): Use NATNUMP macro.
c80bd143 · Karl Heuer · c9dad5ed · c80bd143
Commit c80bd143 authored Nov 16, 1994 by Karl Heuer
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

src/data.c src/data.c +2 -2

No files found.
--- 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