From 128a5b555b139900ac31ea4e717311a2badff387 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 20 Nov 1995 23:21:25 +0000 Subject: [PATCH] (Flist): Avoid using -- in while condition. --- src/alloc.c | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) 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; } -- 2.39.2