* lisp/subr.el (while-let): Use if-let, not if-let* (bug#60758).

This commit is contained in:
Sean Whitton 2023-01-12 17:09:01 -07:00
parent 9ecebcdded
commit 083badc9c1

View file

@ -2545,7 +2545,7 @@ The variable list SPEC is the same as in `if-let'."
(let ((done (gensym "done"))) (let ((done (gensym "done")))
`(catch ',done `(catch ',done
(while t (while t
(if-let* ,spec (if-let ,spec
(progn (progn
,@body) ,@body)
(throw ',done nil)))))) (throw ',done nil))))))