Commit 128a5b55 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Flist): Avoid using -- in while condition.

parent 055ff5a6
......@@ -686,10 +686,14 @@ Any number of arguments, even zero arguments, are allowed.")
int nargs;
register Lisp_Object *args;
{
register Lisp_Object val = Qnil;
register Lisp_Object val;
val = Qnil;
while (nargs--)
val = Fcons (args[nargs], val);
while (nargs > 0)
{
nargs--;
val = Fcons (args[nargs], val);
}
return val;
}
......
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