From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 9 Nov 2019 14:46:44 +0000 (+0100)
Subject: fix ref propagation
X-Git-Tag: emacs-28.0.90~2727^2~1030
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eca71dd5c7a8b7013eb20e1457eddf62776e6c29;p=emacs.git

fix ref propagation
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 813c826501f..3d452543452 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1491,7 +1491,7 @@ This can run just once."
      ;; Reference propagation.
      (let ((operands (cons lval rest)))
        (when (cl-some #'comp-mvar-ref operands)
-         (mapc (lambda (x) (setf (comp-mvar-ref x) t)) rest))))))
+         (mapc (lambda (x) (setf (comp-mvar-ref x) t)) operands))))))
 
 (defun comp-propagate* ()
   "Propagate for set and phi operands."