master 9518926 4/4: Simplify expression in byte-code decompiler

[Mattias Engdegård]

branch: master
commit 9518926220943d5c405e03d7352343341e07ba83
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    Simplify expression in byte-code decompiler
    
    * lisp/emacs-lisp/byte-opt.el (byte-decompile-bytecode-1):
    Replace roundabout expression with what it essentially does.
---
 lisp/emacs-lisp/byte-opt.el | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index c383e02..e0feb95 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)))