procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/cl-macs.el (cl--self-tco): Fix build of gnus-agent.el

Browse source 
Don't burp on "naked" variable let bindings.
This commit is contained in:
Stefan Monnier 2021-01-09 11:35:53 -05:00
parent fe7263803c
commit 981d5eaba8
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/cl-macs.el
View file

@ -2121,7 +2121,8 @@ Like `cl-flet' but the definitions can refer to previous ones.
;; Note: it's OK for this `let' to shadow any
;; of the formal arguments since we will only
;; setq the fresh new `ofargs' vars instead ;-)
(let ((shadowings (mapcar #'car bindings)))
(let ((shadowings
(mapcar (lambda (b) (if (consp b) (car b) b)) bindings)))
;; If `var' is shadowed, then it clearly can't be
;; tail-called any more.
(not (memq var shadowings)))))