From: Eric S. Raymond <esr@thyrsus.com>
Date: Fri, 11 Nov 1994 23:03:02 +0000 (+0000)
Subject: YES!  Both kinds of FOR now work.
X-Git-Tag: 1-2~20
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=adf922b68c545280d374ba20d7d6b26ada08beb2;p=cupl.git

YES!  Both kinds of FOR now work.
---

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