diff options
| author | Andrea Corallo <akrl@sdf.org> | 2019-12-31 00:20:35 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-01-01 11:38:18 +0100 |
| commit | b18f92a942dca6f95c9a74835644e482f3b1b907 (patch) | |
| tree | f32daeec9e1206f0377fe7821c9f053c6cb1c0de /lisp/emacs-lisp/comp.el | |
| parent | 6c77a9e046de682aaace72aaf3af78e6ba9e5489 (diff) | |
| download | emacs-b18f92a942dca6f95c9a74835644e482f3b1b907.tar.gz emacs-b18f92a942dca6f95c9a74835644e482f3b1b907.tar.bz2 emacs-b18f92a942dca6f95c9a74835644e482f3b1b907.zip | |
rework predicates to be homogeneous
Diffstat (limited to 'lisp/emacs-lisp/comp.el')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 039cd6cd411..de3b28e438c 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -296,22 +296,21 @@ structure.") -(defun comp-set-op-p (op) +(defsubst comp-set-op-p (op) "Assignment predicate for OP." - (cl-find op comp-limple-sets)) + (when (member op comp-limple-sets) t)) -(defun comp-assign-op-p (op) +(defsubst comp-assign-op-p (op) "Assignment predicate for OP." - (cl-find op comp-limple-assignments)) + (when (member op comp-limple-assignments) t)) -(defun comp-limple-insn-call-p (insn) +(defsubst comp-limple-insn-call-p (insn) "Limple INSN call predicate." - (when (member (car-safe insn) comp-limple-calls) - t)) + (when (member (car-safe insn) comp-limple-calls) t)) -(defun comp-type-hint-p (func) +(defsubst comp-type-hint-p (func) "Type hint predicate for function name FUNC." - (member func comp-type-hints)) + (when (member func comp-type-hints) t)) (defun comp-add-const-to-relocs (obj) "Keep track of OBJ into the ctxt relocations. |