From: Eric S. Raymond <esr@thyrsus.com>
Date: Fri, 11 Nov 1994 22:40:05 +0000 (+0000)
Subject: Ordinary FOR-loops work OK.
X-Git-Tag: 1-2~21
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=c54284416d8a9457ee09f8c13780136dce1d5744;p=cupl.git

Ordinary FOR-loops work OK.
---

diff --git a/execute.c b/execute.c
index dac13d9..c2ab3e1 100644
--- 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");