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

* lisp/emacs-lisp/macroexp.el (macroexp-let2*): Allow common shorthand

Browse source
This commit is contained in:
Stefan Monnier 2022-04-11 15:10:51 -04:00
parent d6338f8a6a
commit 6a480c830b
3 changed files with 19 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/emacs-lisp/macroexp.el
View file

@ -567,12 +567,20 @@ cases where EXP is a constant."
(defmacro macroexp-let2* (test bindings &rest body)
"Multiple binding version of `macroexp-let2'.
BINDINGS is a list of elements of the form (SYM EXP). Each EXP
can refer to symbols specified earlier in the binding list."
BINDINGS is a list of elements of the form (SYM EXP) or just SYM,
which then stands for (SYM SYM).
Each EXP can refer to symbols specified earlier in the binding list.
TEST has to be a symbol, and if it is nil it can be omitted."
(declare (indent 2) (debug (sexp (&rest (sexp form)) body)))
(when (consp test) ;; `test' was omitted.
(push bindings body)
(setq bindings test)
(setq test nil))
(pcase-exhaustive bindings
('nil (macroexp-progn body))
(`((,var ,exp) . ,tl)
(`(,(or `(,var ,exp) (and (pred symbolp) var (let exp var)))
. ,tl)
`(macroexp-let2 ,test ,var ,exp
(macroexp-let2* ,test ,tl ,@body)))))