Mercurial > emacs

changeset 13610:8e82e46aa77b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Flist): Avoid using -- in while condition.
author Richard M. Stallman <rms@gnu.org>
date Mon, 20 Nov 1995 23:21:25 +0000
parents eb141cf52779
children 22697186f960
files src/alloc.c
diffstat 1 files changed, 7 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/alloc.c	Mon Nov 20 23:15:55 1995 +0000
+++ b/src/alloc.c	Mon Nov 20 23:21:25 1995 +0000
@@ -686,10 +686,14 @@
      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;
 }