* src/fns.c (Fnreverse): Include the problem element when signalling an error.

Fixes: debbugs:12677

diff --git a/src/ChangeLog b/src/ChangeLog
index f1e3a99dbc658079b66f9859b0d6adcd2fc16b68..4a4887579a70ed1e1463e003b874c9e4a3dc98be 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2012-10-19  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * fns.c (Fnreverse): Include the problem element when signalling an
+       error (bug#12677).
+
 2012-10-18  Jan Djärv  <jan.h.d@swipnet.se>
 
        * nsterm.m (ns_select): Check writefds before call to

diff --git a/src/fns.c b/src/fns.c
index c999b5b08b9d8580dfaf59f885f00e293b8c128d..b1ba5ce95098680799e6c440816927ec6778a489 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -1689,7 +1689,7 @@ changing the value of a sequence `foo'.  */)
 
 DEFUN ("nreverse", Fnreverse, Snreverse, 1, 1, 0,
        doc: /* Reverse LIST by modifying cdr pointers.
-Return the reversed list.  */)
+Return the reversed list.  Expects a properly nil-terminated list.  */)
   (Lisp_Object list)
 {
   register Lisp_Object prev, tail, next;
@@ -1700,7 +1700,7 @@ Return the reversed list.  */)
   while (!NILP (tail))
     {
       QUIT;
-      CHECK_LIST_CONS (tail, list);
+      CHECK_LIST_CONS (tail, tail);
       next = XCDR (tail);
       Fsetcdr (tail, prev);
       prev = tail;