From 893e0783c98528906001e4091230395006476489 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Mattias=20Engdeg=C3=A5rd?= <mattias.engdegard@gmail.com>
Date: Thu, 5 Feb 2026 15:03:51 +0100
Subject: [PATCH] ; * lisp/subr.el (take-while): bytecode micro-optimisation

---
 lisp/subr.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/subr.el b/lisp/subr.el
index fcf03dd4f67..6f2dcb8c16d 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1148,8 +1148,8 @@ side-effects, and the argument LIST is not modified."
                              (make-symbol "f")))
                      (r (make-symbol "r")))
                 `(let (,@(and f `((,f ,pred)))
-                       (,tail ,list)
-                       (,r nil))
+                       (,r nil)
+                       (,tail ,list))
                    (while (and ,tail (funcall ,(or f pred) (car ,tail)))
                      (push (car ,tail) ,r)
                      (setq ,tail (cdr ,tail)))