diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-12-01 14:05:09 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-12-01 14:05:23 -0500 |
| commit | 02ebd790b785693a76361b8ab398f6654b51fe3f (patch) | |
| tree | 43ea54640471312f918526d988187b72ce7a85b8 | |
| parent | cbcf8a616e515de22bb2b6cc40daa74c30ee2414 (diff) | |
| download | emacs-02ebd790b785693a76361b8ab398f6654b51fe3f.tar.gz emacs-02ebd790b785693a76361b8ab398f6654b51fe3f.tar.bz2 emacs-02ebd790b785693a76361b8ab398f6654b51fe3f.zip | |
* lisp/emacs-lisp/cconv.el (cconv--lifted-arg): Simplify
| -rw-r--r-- | lisp/emacs-lisp/cconv.el | 6 |
1 files 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)))) |