From eca71dd5c7a8b7013eb20e1457eddf62776e6c29 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sat, 9 Nov 2019 15:46:44 +0100 Subject: [PATCH] fix ref propagation --- lisp/emacs-lisp/comp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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." -- 2.39.5