procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Stefan Monnier 2021-12-01 14:05:09 -05:00
parent cbcf8a616e
commit 02ebd790b7
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/cconv.el
View file

@ -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))))