procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use maphash instead of cl-loop.

Browse source 
* lisp/emacs-lisp/bytecomp.el: (byte-compile-lapcode) Use maphash
  instead of cl-loop
This commit is contained in:
Vibhav Pant 2017-02-01 18:15:59 +05:30
parent f441451658
commit bfa8852013
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/bytecomp.el
View file

@ -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))))