diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 4 |
1 files 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 |