From: Mattias Engdegård <mattiase@acm.org>
Date: Fri, 12 Feb 2021 18:43:41 +0000 (+0100)
Subject: Simplify expression in byte-code decompiler
X-Git-Tag: emacs-28.0.90~3783
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9518926220943d5c405e03d7352343341e07ba83;p=emacs.git

Simplify expression in byte-code decompiler

* lisp/emacs-lisp/byte-opt.el (byte-decompile-bytecode-1):
Replace roundabout expression with what it essentially does.
---

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index c383e0285b9..e0feb95a461 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -1562,10 +1562,7 @@ Same format as `byte-optimize--lexvars', with shared structure and contents.")
              ;; so we create a copy of it, and replace the addresses with
              ;; TAGs.
              (let ((orig-table last-constant))
-               (cl-loop for e across constvec
-                        when (eq e last-constant)
-                        do (setq last-constant (copy-hash-table e))
-                        and return nil)
+               (setq last-constant (copy-hash-table last-constant))
                ;; Replace all addresses with TAGs.
                (maphash #'(lambda (value offset)
                             (let ((match (assq offset tags)))