diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-11-20 23:21:25 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-11-20 23:21:25 +0000 |
commit | 022cb25272426d162c3057ee6830b686b68f4ce7 (patch) | |
tree | a51ab01d956c2555f7c56e2423b2f307ea62fb4b /src/alloc.c | |
parent | 7e70277878e831b52e0231fea1cb918c673684fa (diff) | |
download | emacs-022cb25272426d162c3057ee6830b686b68f4ce7.tar.gz |
(Flist): Avoid using -- in while condition.
Diffstat (limited to 'src/alloc.c')
-rw-r--r-- | src/alloc.c | 10 |
1 files 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; } |