From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 20 Nov 1995 23:21:25 +0000 (+0000)
Subject: (Flist): Avoid using -- in while condition.
X-Git-Tag: emacs-19.34~2250
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=128a5b555b139900ac31ea4e717311a2badff387;p=emacs.git

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

diff --git a/src/alloc.c b/src/alloc.c
index 539539c49cd..06b1cdaf814 100644
--- 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;
 }