From 02ebd790b785693a76361b8ab398f6654b51fe3f Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 1 Dec 2021 14:05:09 -0500 Subject: [PATCH] * 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 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)))) -- 2.39.2