diff options
| author | Vibhav Pant | 2017-02-03 23:23:28 +0530 |
|---|---|---|
| committer | Vibhav Pant | 2017-02-03 23:23:28 +0530 |
| commit | de456d1e4a1d7e34be6d040e0d8a04c42b14e62e (patch) | |
| tree | 24729e6310593ba75156881b0bc71c6df194f224 | |
| parent | bfa88520136dd6b187ba101e6db5a5f8f0d5e874 (diff) | |
| download | emacs-de456d1e4a1d7e34be6d040e0d8a04c42b14e62e.tar.gz emacs-de456d1e4a1d7e34be6d040e0d8a04c42b14e62e.zip | |
Revert "Use maphash instead of cl-loop."
This reverts commit bfa88520136dd6b187ba101e6db5a5f8f0d5e874.
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index f0a6289e667..53622a47d7a 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el | |||
| @@ -917,10 +917,10 @@ CONST2 may be evaluated multiple times." | |||
| 917 | (if (> (car bytes-tail) 255) (error "Bytecode overflow"))) | 917 | (if (> (car bytes-tail) 255) (error "Bytecode overflow"))) |
| 918 | 918 | ||
| 919 | (dolist (hash-table byte-compile-jump-tables) | 919 | (dolist (hash-table byte-compile-jump-tables) |
| 920 | (maphash #'(lambda (k tag) | 920 | (cl-loop for k being the hash-keys of hash-table do |
| 921 | (setq pc (car tag)) | 921 | (let ((tag (cdr (gethash k hash-table)))) |
| 922 | (puthash k (cons (logand pc 255) (lsh pc -8)) hash-table)) | 922 | (setq pc (car tag)) |
| 923 | hash-table)) | 923 | (puthash k (cons (logand pc 255) (lsh pc -8)) hash-table)))) |
| 924 | (apply 'unibyte-string (nreverse bytes)))) | 924 | (apply 'unibyte-string (nreverse bytes)))) |
| 925 | 925 | ||
| 926 | 926 | ||