diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2024-01-02 04:08:43 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2024-01-02 04:08:43 +0100 |
| commit | f77840a5526e40c381a9208a0c5097f652be8e03 (patch) | |
| tree | 9984ff200f147391f54dc737ecb0b14ae3e33b69 | |
| parent | d2528f5c0f90a6c36ad270d8f9fb1b92042db721 (diff) | |
| download | emacs-f77840a5526e40c381a9208a0c5097f652be8e03.tar.gz | |
; Clarify two comments in byte-optimize-letX
* lisp/emacs-lisp/byte-opt.el (byte-optimize-letX): Clarify comments.
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index cdeed678eef..add13a5c312 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -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 |