Commit ae1aa776 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(cl-parse-loop-clause): Recognize

`collecting' as synonym for `collect'.
parent 850e3ba0
...@@ -888,7 +888,7 @@ Valid clauses are: ...@@ -888,7 +888,7 @@ Valid clauses are:
(cl-push (list (list temp (cl-pop args))) loop-bindings) (cl-push (list (list temp (cl-pop args))) loop-bindings)
(cl-push (list '>= (list 'setq temp (list '1- temp)) 0) loop-body))) (cl-push (list '>= (list 'setq temp (list '1- temp)) 0) loop-body)))
((eq word 'collect) ((memq word '(collect collecting))
(let ((what (cl-pop args)) (let ((what (cl-pop args))
(var (cl-loop-handle-accum nil 'nreverse))) (var (cl-loop-handle-accum nil 'nreverse)))
(if (eq var loop-accum-var) (if (eq var loop-accum-var)
......
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