Fix listn introduced in 2012-07-27T06:04:35Z!dmantipov@yandex.ru.

[bpt/emacs.git] / src / alloc.c

diff --git a/src/alloc.c b/src/alloc.c
index 27426cd..a551dd8 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -2832,7 +2832,7 @@ listn (enum constype type, ptrdiff_t count, Lisp_Object arg, ...)
     objp[i] = va_arg (ap, Lisp_Object);
   va_end (ap);
 
-  for (i = 0, val = Qnil; i < count; i++)
+  for (val = Qnil, i = count - 1; i >= 0; i--)
     {
       if (type == CONSTYPE_PURE)
        val = pure_cons (objp[i], val);