From fbf4882a8babd6cab83e78048d5173fef6501393 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 7 Jun 2020 14:42:12 +0200 Subject: [PATCH] * 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 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 -- 2.39.5