[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 4785a63ab71: * lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause)
From: |
Stefan Monnier |
Subject: |
master 4785a63ab71: * lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause): Fix bug#65833 |
Date: |
Fri, 8 Sep 2023 22:17:54 -0400 (EDT) |
branch: master
commit 4785a63ab71ad5a30d6e148221fae39559fdd79d
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* 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.
---
lisp/emacs-lisp/cl-macs.el | 1 +
1 file changed, 1 insertion(+)
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 32a266aa26a..c8e2610c8b0 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 4785a63ab71: * lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause): Fix bug#65833,
Stefan Monnier <=