mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 17:10:51 -08:00
Code Issues Projects Releases Wiki Activity

; * lisp/emacs-lisp/cconv.el (cconv--var-classification): Optimise.

Browse source
This commit is contained in:
Mattias Engdegård 2022-07-09 11:15:17 +02:00
parent 14a3614353
commit 5f8922b9e2
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/cconv.el
View file

@ -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.