* lisp/emacs-lisp/comp.el (comp-compute-dominator-tree): Simplify.
This commit is contained in:
parent
76cdf293c4
commit
ea12230039
1 changed files with 1 additions and 1 deletions
|
@ -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")))))
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue