[Emacs-diffs] /srv/bzr/emacs/trunk r110585: * src/fns.c (Fnreverse): Include the problem element when signalling an error.

[Stefan Monnier]

------------------------------------------------------------
revno: 110585
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=12677
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2012-10-18 20:54:35 -0400
message:
  * src/fns.c (Fnreverse): Include the problem element when signalling an error.
modified:
  src/ChangeLog
  src/fns.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2012-10-18 18:54:37 +0000
+++ b/src/ChangeLog     2012-10-19 00:54:35 +0000
@@ -1,3 +1,8 @@
+2012-10-19  Stefan Monnier  <address@hidden>
+
+       * fns.c (Fnreverse): Include the problem element when signalling an
+       error (bug#12677).
+
 2012-10-18  Jan Djärv  <address@hidden>
 
        * nsterm.m (ns_select): Check writefds before call to

=== modified file 'src/fns.c'
--- a/src/fns.c 2012-10-01 18:59:52 +0000
+++ b/src/fns.c 2012-10-19 00:54:35 +0000
@@ -1689,7 +1689,7 @@
 
 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 @@
   while (!NILP (tail))
     {
       QUIT;
-      CHECK_LIST_CONS (tail, list);
+      CHECK_LIST_CONS (tail, tail);
       next = XCDR (tail);
       Fsetcdr (tail, prev);
       prev = tail;