* Add `comp-call-op-p'

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

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 22575e415f19c39b61b3dc0df2e797c9c4986e0d..46b09fe352cfad52578b58ed53a849fdc26dbec7 100644 (file)
--- 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."