[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 5f8922b9e2: ; * lisp/emacs-lisp/cconv.el (cconv--var-classificati
From: |
Mattias Engdegård |
Subject: |
master 5f8922b9e2: ; * lisp/emacs-lisp/cconv.el (cconv--var-classification): Optimise. |
Date: |
Sat, 9 Jul 2022 05:54:21 -0400 (EDT) |
branch: master
commit 5f8922b9e26f8c0bf68bd72ff6804616a7134792
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>
; * lisp/emacs-lisp/cconv.el (cconv--var-classification): Optimise.
---
lisp/emacs-lisp/cconv.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el
index eca1123899..7f95fa94fa 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 5f8922b9e2: ; * lisp/emacs-lisp/cconv.el (cconv--var-classification): Optimise.,
Mattias Engdegård <=