From e3c24a741ec1705f3d53489737c653fd245b2370 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 19 Jul 1993 22:09:41 +0000
Subject: [PATCH] (Fwhile): If mocklisp, test for nonzeroness.

---
 src/eval.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/eval.c b/src/eval.c
index 897e543adf4..7a3a923e0da 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -746,7 +746,8 @@ until TEST returns nil.")
 
   test = Fcar (args);
   body = Fcdr (args);
-  while (tem = Feval (test), !NILP (tem))
+  while (tem = Feval (test),
+	 (!EQ (Vmocklisp_arguments, Qt) ? XINT (tem) : !NILP (tem)))
     {
       QUIT;
       Fprogn (body);
-- 
2.39.5