mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-10 00:00:39 -08:00
Code Issues Projects Releases Wiki Activity

Transform (list) -> nil in source optimiser

Browse source 
This optimisation is already done in the code generator but performing
it at this earlier stage is a useful normalising step that uncovers
more opportunities.

* lisp/emacs-lisp/byte-opt.el (byte-optimize-list): New.
This commit is contained in:
Mattias Engdegård 2022-07-15 21:28:30 +02:00
parent 69223ee975
commit eb0e93478e
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1287,6 +1287,11 @@ See Info node `(elisp) Integer Basics'."
`(list ,(nth 1 form))
form))
(put 'list 'byte-optimizer #'byte-optimize-list)
(defun byte-optimize-list (form)
;; (list) -> nil
(and (cdr form) form))
;; Fixme: delete-char -> delete-region (byte-coded)
(put 'set 'byte-optimizer #'byte-optimize-set)