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

[Stefan Monnier]

branch: master
commit 02ebd790b785693a76361b8ab398f6654b51fe3f
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * lisp/emacs-lisp/cconv.el (cconv--lifted-arg): Simplify
---
 lisp/emacs-lisp/cconv.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el
index f86744f..7cec91b 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))))