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

diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el
index f86744fd1ae76b32ae8f312c279ca072561e3863..7cec91bfa82fe39b07dce8bc6d99e819fde85d52 100644 (file)
--- 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))))