From f16bd1ead430294ff90cb4c3f0aba608a719a2e7 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 15 Jan 2023 09:57:41 -0700 Subject: [PATCH] Revert "* lisp/subr.el (while-let): Use if-let, not if-let* (bug#60758)." This reverts commit 083badc9c122a802080552e7771e78ee47c01e3c. --- lisp/subr.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/subr.el b/lisp/subr.el index ab451b5613b..34dd847e9d5 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2545,7 +2545,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