diff options
| author | Mattias Engdegård | 2022-07-09 11:15:17 +0200 |
|---|---|---|
| committer | Mattias Engdegård | 2022-07-09 11:53:30 +0200 |
| commit | 5f8922b9e26f8c0bf68bd72ff6804616a7134792 (patch) | |
| tree | 02ade05f859f2d6c1e77774cb52b8d2712a12d82 | |
| parent | 14a361435324fe4b1a388a382982e6af8bf44ff0 (diff) | |
| download | emacs-5f8922b9e26f8c0bf68bd72ff6804616a7134792.tar.gz emacs-5f8922b9e26f8c0bf68bd72ff6804616a7134792.zip | |
; * lisp/emacs-lisp/cconv.el (cconv--var-classification): Optimise.
| -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." | |||
| 267 | 267 | ||
| 268 | (define-inline cconv--var-classification (binder form) | 268 | (define-inline cconv--var-classification (binder form) |
| 269 | (inline-quote | 269 | (inline-quote |
| 270 | (alist-get (cons ,binder ,form) cconv-var-classification | 270 | (cdr (assoc (cons ,binder ,form) cconv-var-classification)))) |
| 271 | nil nil #'equal))) | ||
| 272 | 271 | ||
| 273 | (defun cconv--convert-funcbody (funargs funcbody env parentform) | 272 | (defun cconv--convert-funcbody (funargs funcbody env parentform) |
| 274 | "Run `cconv-convert' on FUNCBODY, the forms of a lambda expression. | 273 | "Run `cconv-convert' on FUNCBODY, the forms of a lambda expression. |