Commit f60d391f authored by Stefan Monnier's avatar Stefan Monnier

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

Fixes: debbugs:12677
parent 8c27235e
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> 2012-10-18 Jan Djärv <jan.h.d@swipnet.se>
* nsterm.m (ns_select): Check writefds before call to * nsterm.m (ns_select): Check writefds before call to
......
...@@ -1689,7 +1689,7 @@ changing the value of a sequence `foo'. */) ...@@ -1689,7 +1689,7 @@ changing the value of a sequence `foo'. */)
DEFUN ("nreverse", Fnreverse, Snreverse, 1, 1, 0, DEFUN ("nreverse", Fnreverse, Snreverse, 1, 1, 0,
doc: /* Reverse LIST by modifying cdr pointers. doc: /* Reverse LIST by modifying cdr pointers.
Return the reversed list. */) Return the reversed list. Expects a properly nil-terminated list. */)
(Lisp_Object list) (Lisp_Object list)
{ {
register Lisp_Object prev, tail, next; register Lisp_Object prev, tail, next;
...@@ -1700,7 +1700,7 @@ Return the reversed list. */) ...@@ -1700,7 +1700,7 @@ Return the reversed list. */)
while (!NILP (tail)) while (!NILP (tail))
{ {
QUIT; QUIT;
CHECK_LIST_CONS (tail, list); CHECK_LIST_CONS (tail, tail);
next = XCDR (tail); next = XCDR (tail);
Fsetcdr (tail, prev); Fsetcdr (tail, prev);
prev = tail; prev = tail;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment