diff options
Diffstat (limited to 'lisp/emacs-lisp/comp.el')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index e69de84362e..fa866b802cc 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -189,6 +189,11 @@ Useful to hook into pass checkers.") finally return h) "Hash table function -> `comp-constraint'.") +(defsubst comp--symbol-func-to-fun (symbol-func) + "Given a function called SYMBOL-FUNC return its `comp-func'." + (gethash (gethash symbol-func (comp-ctxt-sym-to-c-name-h comp-ctxt)) + (comp-ctxt-funcs-h comp-ctxt))) + (defun comp--get-function-cstr (function) "Given FUNCTION return the corresponding `comp-constraint'." (when (symbolp function) @@ -603,11 +608,6 @@ In use by the back-end." finally return t) t)) -(defsubst comp--symbol-func-to-fun (symbol-func) - "Given a function called SYMBOL-FUNC return its `comp-func'." - (gethash (gethash symbol-func (comp-ctxt-sym-to-c-name-h comp-ctxt)) - (comp-ctxt-funcs-h comp-ctxt))) - (defun comp--function-pure-p (f) "Return t if F is pure." (or (get f 'pure) |