diff options
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 4 |
1 files changed, 2 insertions, 2 deletions
| @@ -1689,7 +1689,7 @@ changing the value of a sequence `foo'. */) | |||
| 1689 | 1689 | ||
| 1690 | DEFUN ("nreverse", Fnreverse, Snreverse, 1, 1, 0, | 1690 | DEFUN ("nreverse", Fnreverse, Snreverse, 1, 1, 0, |
| 1691 | doc: /* Reverse LIST by modifying cdr pointers. | 1691 | doc: /* Reverse LIST by modifying cdr pointers. |
| 1692 | Return the reversed list. */) | 1692 | Return the reversed list. Expects a properly nil-terminated list. */) |
| 1693 | (Lisp_Object list) | 1693 | (Lisp_Object list) |
| 1694 | { | 1694 | { |
| 1695 | register Lisp_Object prev, tail, next; | 1695 | register Lisp_Object prev, tail, next; |
| @@ -1700,7 +1700,7 @@ Return the reversed list. */) | |||
| 1700 | while (!NILP (tail)) | 1700 | while (!NILP (tail)) |
| 1701 | { | 1701 | { |
| 1702 | QUIT; | 1702 | QUIT; |
| 1703 | CHECK_LIST_CONS (tail, list); | 1703 | CHECK_LIST_CONS (tail, tail); |
| 1704 | next = XCDR (tail); | 1704 | next = XCDR (tail); |
| 1705 | Fsetcdr (tail, prev); | 1705 | Fsetcdr (tail, prev); |
| 1706 | prev = tail; | 1706 | prev = tail; |