branch: externals/beardbolt
commit d1b0f7c2ba421e4f7c3e546813f1bbe5453daf7f
Author: Jay Kamat <[email protected]>
Commit: Jay Kamat <[email protected]>
Fix compilation warnings
---
rmsbolt.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/rmsbolt.el b/rmsbolt.el
index d24a196086..0aa20c140a 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -631,14 +631,14 @@ Lifted from
https://emacs.stackexchange.com/questions/35936/disassembly-of-a-byt
(with-current-buffer out-buffer
(erase-buffer)
(condition-case ()
- (cl-loop with cl-print-compiled = 'disassemble
- for expr = (read inbuf)
- do (pcase expr
- (`(byte-code ,(pred stringp) ,(pred vectorp)
,(pred natnump))
- (princ "TOP-LEVEL byte code:\n" (current-buffer))
- (disassemble-1 expr 0))
- (_ (cl-prin1 expr (current-buffer))))
- do (terpri (current-buffer)))
+ (let ((cl-print-compiled 'disassemble))
+ (cl-loop for expr = (read inbuf)
+ do (pcase expr
+ (`(byte-code ,(pred stringp) ,(pred vectorp)
,(pred natnump))
+ (princ "TOP-LEVEL byte code:\n"
(current-buffer))
+ (disassemble-1 expr 0))
+ (_ (cl-prin1 expr (current-buffer))))
+ do (terpri (current-buffer))))
(end-of-file nil)))))))
;;;;; Filter Functions
