From 2a400490851c530bd51f8a4453d0d3fb452ab561 Mon Sep 17 00:00:00 2001 From: Pip Cet Date: Sun, 21 Feb 2021 22:40:05 +0000 Subject: [PATCH] Don't lie about who set the variable. --- lisp/emacs-lisp/comp.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 4036080976546..194b1512cc2c4 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -2317,11 +2317,11 @@ comp-cond-cstrs-target-mvar (cl-loop with res = nil for insn in (comp-block-insns bb) - when (eq insn exit-insn) - do (cl-return (and (comp-mvar-p res) res)) do (pcase insn (`(,(pred comp-assign-op-p) ,(pred targetp) ,rhs) (setf res rhs))) + when (eq insn exit-insn) + do (cl-return (and (comp-mvar-p res) res)) finally (cl-assert nil)))) (defun comp-add-cond-cstrs-target-block (curr-bb target-bb-sym) -- 2.30.0