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

; 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
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) (put 'let* 'byte-optimizer #'byte-optimize-letX)
(defun byte-optimize-letX (form) (defun byte-optimize-letX (form)
(pcase form (pcase form
;; No bindings. ;; Bindings list is empty.
(`(,_ () . ,body) (`(,_ () . ,body)
`(progn . ,body)) `(progn . ,body))
@ -1489,7 +1489,7 @@ See Info node `(elisp) Integer Basics'."
`(progn ,@(mapcar #'cadr bindings) ,const) `(progn ,@(mapcar #'cadr bindings) ,const)
`(,head ,(butlast bindings) ,(cadar (last 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 (`(,head ,(and bindings
(let last-var (caar (last bindings)))) (let last-var (caar (last bindings))))
,(and last-var ; non-linear pattern ,(and last-var ; non-linear pattern