* lisp/emacs-lisp/comp.el (comp-compute-dominator-tree): Simplify.

This commit is contained in:
Andrea Corallo 2023-09-20 12:08:02 +02:00
parent 76cdf293c4
commit ea12230039

View file

@ -2918,7 +2918,7 @@ blocks."
finger2 (comp-block-post-num b2))))
b1))
(first-processed (l)
(if-let ((p (cl-find-if (lambda (p) (comp-block-idom p)) l)))
(if-let ((p (cl-find-if #'comp-block-idom l)))
p
(signal 'native-ice '("can't find first preprocessed")))))