* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause): Fix bug#65833
For some reason the intervals case failed to push the var to `loop-for-bindings` before pushing to `loop-for-sets`. AFAICT this was the only place where we made that mistake.
This commit is contained in:
parent
ec097d85ff
commit
4785a63ab7
1 changed files with 1 additions and 0 deletions
|
@ -1465,6 +1465,7 @@ For more details, see Info node `(cl)Loop Facility'.
|
|||
(t (setq buf (cl--pop2 cl--loop-args)))))
|
||||
(if (and (consp var) (symbolp (car var)) (symbolp (cdr var)))
|
||||
(setq var1 (car var) var2 (cdr var))
|
||||
(push (list var nil) loop-for-bindings)
|
||||
(push (list var `(cons ,var1 ,var2)) loop-for-sets))
|
||||
(cl--loop-set-iterator-function
|
||||
'intervals (lambda (body)
|
||||
|
|
Loading…
Add table
Reference in a new issue