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

128a5b55 · Richard M. Stallman · 055ff5a6 · 128a5b55
Commit 128a5b55 authored Nov 20, 1995 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 3 deletions

src/alloc.c src/alloc.c +7 -3

No files found.
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -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;
 }