diff options
| -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; } |