From 0e72d4793c332f2eaba05130ea08e9809813f599 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 29 Sep 2022 12:29:36 +0200 Subject: [PATCH] Tweak while-let definition * lisp/subr.el (while-let): Use if-let* since we don't need/want the backwards compat of if-let. --- lisp/subr.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/subr.el b/lisp/subr.el index 2a8fc46a9f9..4f8273d56fb 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2524,7 +2524,7 @@ The variable list SPEC is the same as in `if-let'." (let ((done (gensym "done"))) `(catch ',done (while t - (if-let ,spec + (if-let* ,spec (progn ,@body) (throw ',done nil)))))) -- 2.39.2