Commit e3c24a74 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Fwhile): If mocklisp, test for nonzeroness.

parent b3f77ca2
......@@ -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);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment