From f60d391f5f8b3fbaa8ebe253afcf47b5ed9144f1 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 18 Oct 2012 20:54:35 -0400 Subject: [PATCH] * src/fns.c (Fnreverse): Include the problem element when signalling an error. Fixes: debbugs:12677 --- src/ChangeLog | 5 +++++ src/fns.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index f1e3a99dbc..4a4887579a 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2012-10-19 Stefan Monnier + + * fns.c (Fnreverse): Include the problem element when signalling an + error (bug#12677). + 2012-10-18 Jan Djärv * nsterm.m (ns_select): Check writefds before call to diff --git a/src/fns.c b/src/fns.c index c999b5b08b..b1ba5ce950 100644 --- 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; -- 2.20.1