master 358b38bc178 1/3: * lisp/emacs-lisp/comp.el (comp--type-check-optim-block): Improve log msg.

[Andrea Corallo]

branch: master
commit 358b38bc17875c462c2131b9eeb85d3456c0be2b
Author: Andrea Corallo <acorallo@gnu.org>
Commit: Andrea Corallo <acorallo@gnu.org>

    * lisp/emacs-lisp/comp.el (comp--type-check-optim-block): Improve log msg.
---
 lisp/emacs-lisp/comp.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 342212f5185..f72d23fee1a 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2851,10 +2851,11 @@ Return t if something was changed."
                 (call symbol-value ,(and (pred comp-cstr-cl-tag-p) mvar-tag)))
            (set ,(and (pred comp-mvar-p) mvar-3)
                 (call memq ,(and (pred comp-mvar-p) mvar-1) ,(and (pred 
comp-mvar-p) mvar-2)))
-           (cond-jump ,(and (pred comp-mvar-p) mvar-3) ,(pred comp-mvar-p) 
,_bb1 ,bb2))
+           (cond-jump ,(and (pred comp-mvar-p) mvar-3) ,(pred comp-mvar-p) 
,bb1 ,bb2))
          (cl-assert (comp-cstr-imm-vld-p mvar-tag))
          (when (comp-cstr-type-p mvar-tested (comp-cstr-cl-tag mvar-tag))
-           (comp-log (format "Optimizing conditional branch in function: %s"
+           (comp-log (format "Optimizing conditional branch %s in function: %s"
+                             bb1
                              (comp-func-name comp-func))
                      3)
            (setf (car insns-seq) '(comment "optimized by 
comp--type-check-optim")