YES! Both kinds of FOR now work.

diff --git a/execute.c b/execute.c
index c2ab3e1b66b8cf008664291ab50ff3aba7e96d3c..fdb54c68acb0fa885a0477cf63a027aeb0b5f178 100644 (file)
--- a/execute.c
+++ b/execute.c
@@ -504,7 +504,7 @@ static value cupl_eval(node *tree)
        iterator = tree->car;
        if (iterator->type == '=')
        {
-           for_cdr(np, tree)
+           for_cdr(np, iterator->cdr)
            {
                result = EVAL_WRAP(cupl_eval(np->car));
                cupl_assign(iterator->car, result);