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

; Clarify two comments in byte-optimize-letX

Browse source 
* lisp/emacs-lisp/byte-opt.el (byte-optimize-letX): Clarify comments.
This commit is contained in:
Stefan Kangas 2024-01-02 04:08:43 +01:00
parent d2528f5c0f
commit f77840a552
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1479,7 +1479,7 @@ See Info node `(elisp) Integer Basics'."
(put 'let* 'byte-optimizer #'byte-optimize-letX)
(defun byte-optimize-letX (form)
(pcase form
;; No bindings.
;; Bindings list is empty.
(`(,_ () . ,body)
`(progn . ,body))
@ -1489,7 +1489,7 @@ See Info node `(elisp) Integer Basics'."
`(progn ,@(mapcar #'cadr bindings) ,const)
`(,head ,(butlast bindings) ,(cadar (last bindings)) ,const)))
;; Body is last variable.
;; Body does nothing but return the last variable in bindings.
(`(,head ,(and bindings
(let last-var (caar (last bindings))))
,(and last-var ; non-linear pattern