Ordinary FOR-loops work OK.

diff --git a/execute.c b/execute.c
index dac13d9d5663f4f398286dfe220952d9407b9675..c2ab3e1b66b8cf008664291ab50ff3aba7e96d3c 100644 (file)
--- a/execute.c
+++ b/execute.c
@@ -513,22 +513,18 @@ static value cupl_eval(node *tree)
        }
        else if (iterator->type == ITERATE)
        {
-           value       v;
            scalar ds, initial, final, increment;
 
            initial = EVAL_WRAP(cupl_eval(iterator->cdr->car)).elements[0];
            iterator = iterator->cdr->cdr;
            final = EVAL_WRAP(cupl_eval(iterator->car)).elements[0];
            increment = iterator->cdr ? EVAL_WRAP(cupl_eval(iterator->car)).elements[0] : 1;
-           make_scalar(&v, ds);
 
            for (ds = initial; ds <= final; ds += increment)
            {
-               v.elements[0] = ds;
-               cupl_assign(tree->car->car, v);
+               tree->car->car->syminf->value.elements[0] = ds;
                cupl_eval(tree->cdr);
            }
-           deallocate_value(&v);
        }
        else
            die("unknown iterator in FOR statement\n");