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

; * lisp/emacs-lisp/cl-macs.el (cl--self-tco): fix bootstrapping

Browse source
This commit is contained in:
Mattias Engdegård 2021-12-20 17:29:17 +01:00
parent 19206fd1e7
commit de797bb853
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -2145,8 +2145,8 @@ Like `cl-flet' but the definitions can refer to previous ones.
(not (memq var shadowings))
;; If any of the new bindings is a dynamic
;; variable, the body is not in tail position.
(not (cl-some #'macroexp--dynamic-variable-p
shadowings))))))
(not (delq nil (mapcar #'macroexp--dynamic-variable-p
shadowings)))))))
`(,(car exp) ,bindings . ,(funcall opt-exps exps)))
((and `(condition-case ,err-var ,bodyform . ,handlers)
(guard (not (eq err-var var))))