Mercurial > emacs
changeset 27479:2b5d9f6cdc24
(cl-parse-loop-clause): Recognize
`collecting' as synonym for `collect'.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 28 Jan 2000 17:31:00 +0000 |
| parents | 00282ceafbca |
| children | 90165d2202f9 |
| files | lisp/emacs-lisp/cl-macs.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-macs.el Fri Jan 28 17:29:47 2000 +0000 +++ b/lisp/emacs-lisp/cl-macs.el Fri Jan 28 17:31:00 2000 +0000 @@ -888,7 +888,7 @@ (cl-push (list (list temp (cl-pop args))) loop-bindings) (cl-push (list '>= (list 'setq temp (list '1- temp)) 0) loop-body))) - ((eq word 'collect) + ((memq word '(collect collecting)) (let ((what (cl-pop args)) (var (cl-loop-handle-accum nil 'nreverse))) (if (eq var loop-accum-var)