procyberian/emacs
2
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
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 . ,_) (`(internal-get-closed-var . ,_)
;; The variable is captured. ;; The variable is captured.
mapping) mapping)
(`(car-safe (internal-get-closed-var . ,_)) (`(car-safe ,exp)
;; The variable is mutably captured; skip ;; The variable is mutably captured; skip
;; the indirection step because the variable is ;; the indirection step because the variable is
;; passed "by reference" to the λ-lifted function. ;; passed "by reference" to the λ-lifted function.
(cadr mapping)) exp)
((or '() `(car-safe ,(pred symbolp))) (_
;; The variable is not captured; use the (shadowed) variable value. ;; The variable is not captured; use the (shadowed) variable value.
;; (If the mapping is `(car-safe SYMBOL)', SYMBOL is always VAR. ;; (If the mapping is `(car-safe SYMBOL)', SYMBOL is always VAR.
var)))) var))))