(Fwhile): If mocklisp, test for nonzeroness.

diff --git a/src/eval.c b/src/eval.c
index 897e543..7a3a923 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);