From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 7 Jun 2020 12:42:12 +0000 (+0200)
Subject: * Rename comp-function-optimizable -> comp-function-optimizable-p
X-Git-Tag: emacs-28.0.90~2727^2~581
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fbf4882a8babd6cab83e78048d5173fef6501393;p=emacs.git

* Rename comp-function-optimizable -> comp-function-optimizable-p

	* lisp/emacs-lisp/comp.el (comp-function-optimizable): Rename into
	'comp-function-optimizable-p'.
	(comp-function-call-maybe-remove): Use the new name.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 520ec8cd44d..a6bf723f54c 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1870,7 +1870,7 @@ Here goes everything that can be done not iteratively (read once).
         (comp-mvar-type lval) (comp-mvar-type rval)))
 
 ;; Here should fall most of (defun byte-optimize-* equivalents.
-(defsubst comp-function-optimizable (f args)
+(defsubst comp-function-optimizable-p (f args)
   "Given function F called with ARGS return non nil when optimizable."
   (when (cl-every #'comp-mvar-const-vld args)
     (or (get f 'pure)
@@ -1900,7 +1900,7 @@ Here goes everything that can be done not iteratively (read once).
                                        comp-symbol-values-optimizable)))
         (rewrite-insn-as-setimm insn (symbol-value (comp-mvar-constant
                                                     (car args))))))
-     ((comp-function-optimizable f args)
+     ((comp-function-optimizable-p f args)
       (ignore-errors
         ;; No point to complain here because we should do basic block
         ;; pruning in order to be sure that this is not dead-code.  This