* lisp/subr.el (while-let): Use if-let, not if-let* (bug#60758).
This commit is contained in:
parent
9ecebcdded
commit
083badc9c1
1 changed files with 1 additions and 1 deletions
|
@ -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))))))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue