diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2022-07-09 11:15:17 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2022-07-09 11:53:30 +0200 |
| commit | 5f8922b9e26f8c0bf68bd72ff6804616a7134792 (patch) | |
| tree | 02ade05f859f2d6c1e77774cb52b8d2712a12d82 /lisp | |
| parent | 14a361435324fe4b1a388a382982e6af8bf44ff0 (diff) | |
| download | emacs-5f8922b9e26f8c0bf68bd72ff6804616a7134792.tar.gz | |
; * lisp/emacs-lisp/cconv.el (cconv--var-classification): Optimise.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/cconv.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el index eca1123899c..7f95fa94fa1 100644 --- a/lisp/emacs-lisp/cconv.el +++ b/lisp/emacs-lisp/cconv.el @@ -267,8 +267,7 @@ Returns a form where all lambdas don't have any free variables." (define-inline cconv--var-classification (binder form) (inline-quote - (alist-get (cons ,binder ,form) cconv-var-classification - nil nil #'equal))) + (cdr (assoc (cons ,binder ,form) cconv-var-classification)))) (defun cconv--convert-funcbody (funargs funcbody env parentform) "Run `cconv-convert' on FUNCBODY, the forms of a lambda expression. |