From: Andrea Corallo <acorallo@gnu.org>
Date: Wed, 20 Sep 2023 10:08:02 +0000 (+0200)
Subject: * lisp/emacs-lisp/comp.el (comp-compute-dominator-tree): Simplify.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea12230039c23160077b6928fb7a04dd38c4d5f7;p=emacs.git

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

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 37771eb004e..181e5ca96a1 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -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")))))