* Add `comp-call-op-p'

	* lisp/emacs-lisp/comp.el (comp-call-op-p): New predicate.
	(comp-limple-insn-call-p): Make use of.

1 files changed, 5 insertions, 1 deletions

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 22575e415f1..46b09fe352c 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -423,9 +423,13 @@ structure.")
   "Assignment predicate for OP."
   (when (memq op comp-limple-assignments) t))
 
+(defsubst comp-call-op-p (op)
+  "Call predicate for OP."
+  (when (memq op comp-limple-calls) t))
+
 (defsubst comp-limple-insn-call-p (insn)
   "Limple INSN call predicate."
-  (when (memq (car-safe insn) comp-limple-calls) t))
+  (comp-call-op-p (car-safe insn)))
 
 (defsubst comp-type-hint-p (func)
   "Type hint predicate for function name FUNC."