From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 1 Dec 2021 19:05:09 +0000 (-0500)
Subject: * lisp/emacs-lisp/cconv.el (cconv--lifted-arg): Simplify
X-Git-Tag: emacs-29.0.90~3630^2~7
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=02ebd790b785693a76361b8ab398f6654b51fe3f;p=emacs.git

* lisp/emacs-lisp/cconv.el (cconv--lifted-arg): Simplify
---

diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el
index f86744fd1ae..7cec91bfa82 100644
--- a/lisp/emacs-lisp/cconv.el
+++ b/lisp/emacs-lisp/cconv.el
@@ -313,12 +313,12 @@ such calls."
       (`(internal-get-closed-var . ,_)
        ;; The variable is captured.
        mapping)
-      (`(car-safe (internal-get-closed-var . ,_))
+      (`(car-safe ,exp)
        ;; The variable is mutably captured; skip
        ;; the indirection step because the variable is
        ;; passed "by reference" to the λ-lifted function.
-       (cadr mapping))
-      ((or '() `(car-safe ,(pred symbolp)))
+       exp)
+      (_
        ;; The variable is not captured; use the (shadowed) variable value.
        ;; (If the mapping is `(car-safe SYMBOL)', SYMBOL is always VAR.
        var))))