[elpa] externals/beardbolt 7f61815c17 121/323: Try to fix bytecode issues

[ELPA Syncer]

branch: externals/beardbolt
commit 7f61815c17bd37261e4bacacdddfd7eba8fa99f9
Author: Jay Kamat <jaygkamat@gmail.com>
Commit: Jay Kamat <jaygkamat@gmail.com>

    Try to fix bytecode issues
---
 rmsbolt.el | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/rmsbolt.el b/rmsbolt.el
index c00e37bf15..79bf730c8b 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -630,12 +630,10 @@ Lifted from 
https://emacs.stackexchange.com/questions/35936/disassembly-of-a-byt
         (goto-char (point-min))
         (with-current-buffer out-buffer
           (erase-buffer)
+          (setq-local cl-print-compiled 'disassemble)
           (condition-case ()
-              (cl-loop with cl-print-compiled = 'disassemble
-                       for expr = (read inbuf)
+              (cl-loop for expr = (read inbuf)
                        do
-                       ;; FIXME Trick byte-compiler into thinking we use the 
variable
-                       (setq cl-print-compiled cl-print-compiled)
                        (pcase expr
                          (`(byte-code ,(pred stringp) ,(pred vectorp) ,(pred 
natnump))
                           (princ "TOP-LEVEL byte code:\n" (current-buffer))