[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/byte-switch de456d1: Revert "Use maphash instead o
From: |
Vibhav Pant |
Subject: |
[Emacs-diffs] feature/byte-switch de456d1: Revert "Use maphash instead of cl-loop." |
Date: |
Fri, 3 Feb 2017 17:53:25 +0000 (UTC) |
branch: feature/byte-switch
commit de456d1e4a1d7e34be6d040e0d8a04c42b14e62e
Author: Vibhav Pant <address@hidden>
Commit: Vibhav Pant <address@hidden>
Revert "Use maphash instead of cl-loop."
This reverts commit bfa88520136dd6b187ba101e6db5a5f8f0d5e874.
---
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 f0a6289..53622a4 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)
- (maphash #'(lambda (k tag)
- (setq pc (car tag))
- (puthash k (cons (logand pc 255) (lsh pc -8)) hash-table))
- hash-table))
+ (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))))
(apply 'unibyte-string (nreverse bytes))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] feature/byte-switch de456d1: Revert "Use maphash instead of cl-loop.",
Vibhav Pant <=