diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-12-26 12:23:27 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-12-26 12:30:58 +0100 |
| commit | fcd8c60182efc8bfe7bad11fb74489fe5df28d6b (patch) | |
| tree | e0510ab59d376fbb285071ded1e28e39403a9c31 /lisp/emacs-lisp | |
| parent | c5c0c06b1c37dc32b992dc4deddd8ec7bf154def (diff) | |
| download | emacs-fcd8c60182efc8bfe7bad11fb74489fe5df28d6b.tar.gz emacs-fcd8c60182efc8bfe7bad11fb74489fe5df28d6b.tar.bz2 emacs-fcd8c60182efc8bfe7bad11fb74489fe5df28d6b.zip | |
* Remove unnecessary lhs rename in `comp-ssa-rename-insn'
* lisp/emacs-lisp/comp.el (comp-ssa-rename-insn): No point to
rename lhs as it's being replaced.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index caea81fccca..936e47ff39a 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -2474,7 +2474,7 @@ PRE-LAMBDA and POST-LAMBDA are called in pre or post-order if non-nil." (pcase insn (`(,(pred comp-assign-op-p) ,(pred targetp) . ,_) (let ((mvar (aref frame slot-n))) - (setcdr insn (cl-nsubst-if mvar #'targetp (cdr insn)))) + (setf (cddr insn) (cl-nsubst-if mvar #'targetp (cddr insn)))) (new-lvalue)) (`(fetch-handler . ,_) ;; Clobber all no matter what! |