1 files changed, 1 insertions, 3 deletions
diff --git a/eval.c b/eval.c
index 87616a08..7e27c962 100644
--- a/eval.c
+++ b/eval.c
@@ -2542,9 +2542,7 @@ static val supplement_op_syms(val ssyms, val max)
   list_collect_decl (outsyms, tl);
   val si, ni;
 
-  for (si = ssyms, ni = one;
-       ssyms;
-       ni = plus(ni, one), ssyms = cdr(ssyms))
+  for (si = ssyms, ni = one; si; ni = plus(ni, one), si = cdr(si))
   {
     val entry = car(si);
     val num = car(entry);