emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] feature/byte-switch bfa8852: Use maphash instead of cl-loo


From: Vibhav Pant
Subject: [Emacs-diffs] feature/byte-switch bfa8852: Use maphash instead of cl-loop.
Date: Thu, 2 Feb 2017 06:59:35 +0000 (UTC)

branch: feature/byte-switch
commit bfa88520136dd6b187ba101e6db5a5f8f0d5e874
Author: Vibhav Pant <address@hidden>
Commit: Vibhav Pant <address@hidden>

    Use maphash instead of cl-loop.
    
    * lisp/emacs-lisp/bytecomp.el: (byte-compile-lapcode) Use maphash
      instead of cl-loop
---
 lisp/emacs-lisp/bytecomp.el |    8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 53622a4..f0a6289 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -917,10 +917,10 @@ CONST2 may be evaluated multiple times."
       (if (> (car bytes-tail) 255) (error "Bytecode overflow")))
 
     (dolist (hash-table byte-compile-jump-tables)
-      (cl-loop for k being the hash-keys of hash-table do
-               (let ((tag (cdr (gethash k hash-table))))
-                 (setq pc (car tag))
-                 (puthash k (cons (logand pc 255) (lsh pc -8)) hash-table))))
+      (maphash #'(lambda (k tag)
+                   (setq pc (car tag))
+                   (puthash k (cons (logand pc 255) (lsh pc -8)) hash-table))
+               hash-table))
     (apply 'unibyte-string (nreverse bytes))))
 
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]