Commit c80bd143 authored by Karl Heuer's avatar Karl Heuer

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

(Fnatnump): Use NATNUMP macro.
parent c9dad5ed
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment