# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 949080660 0
# Node ID 2b5d9f6cdc240bd4c6b1f8c4ea016c00c41fae1a
# Parent  00282ceafbca20dd48e6d8e9eedbc9c55bb9634b
(cl-parse-loop-clause): Recognize
`collecting' as synonym for `collect'.

diff -r 00282ceafbca -r 2b5d9f6cdc24 lisp/emacs-lisp/cl-macs.el
--- 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)