(Fwhile): If mocklisp, test for nonzeroness.

diff --git a/src/eval.c b/src/eval.c
index 897e543adf40a5f3ddcdfadb716544b1dc1f95f3..7a3a923e0dae14d7c5614156b653a2f80b13b797 100644 (file)
--- 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);