feature/native-comp fbf4882 3/4: * Rename comp-function-optimizable -> comp-function-optimizable-p

[Andrea Corallo]

branch: feature/native-comp
commit fbf4882a8babd6cab83e78048d5173fef6501393
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * 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.
---
 lisp/emacs-lisp/comp.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 520ec8c..a6bf723 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