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

Fix byte-optimize-memq incorrectly optimizing some memq forms.

Browse source 
* lisp/emacs-lisp/byte-opt.el (byte-optimize-memq): Call
  byte-optimize-and only for memq forms that can be optimized, use
  byte-optimize-predicate to optimize the final form.
This commit is contained in:
Vibhav Pant 2018-03-25 11:22:50 +05:30
parent a140513acb
commit d73d1384aa
No known key found for this signature in database
GPG key ID: E3FB28CB6AB59598
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/emacs-lisp/byte-opt.el
View file

@ -774,10 +774,11 @@
(when (and (eq (car-safe list) 'quote)
(listp (setq list (cadr list)))
(= (length list) 1))
(setq form `(and ,(byte-optimize-predicate
`(eq ,(nth 1 form) ',(nth 0 list)))
',list))))
(byte-optimize-and form)))
(setq form (byte-optimize-and
`(and ,(byte-optimize-predicate
`(eq ,(nth 1 form) ',(nth 0 list)))
',list)))))
(byte-optimize-predicate form)))
(put 'identity 'byte-optimizer 'byte-optimize-identity)
(put 'memq 'byte-optimizer 'byte-optimize-memq)