Fix misleading LAP optimiser debug log message

* lisp/emacs-lisp/byte-opt.el (byte-optimize-lapcode):
Correct message in a conditional jump threading rule.

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index feff233998dddae8182db474ae8b5267c1b738de..e0c769c7e60402a0f985fe1a561964f168552417 100644 (file)
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -2368,9 +2368,11 @@ If FOR-EFFECT is non-nil, the return value is assumed to be of no importance."
                          (eq (car tmp) 'byte-goto))
                       (not (eq (cdr tmp) (cdr lap0)))
                       (progn
-                        ;; FIXME: inaccurate log message when lap0 = goto-if-*
                        (byte-compile-log-lap "  %s [%s]\t-->\t%s"
-                                              (car lap0) tmp tmp)
+                                              (car lap0) tmp
+                                              (if (eq (car tmp) 'byte-return)
+                                                  tmp
+                                                (cons (car lap0) (cdr tmp))))
                        (when (eq (car tmp) 'byte-return)
                          (setcar lap0 'byte-return))
                        (setcdr lap0 (cdr tmp))