ATRONIX/FIX: Fix foreach with set-word

Oldes · Oldes · commit e41a254d935e · 2018-06-25T11:38:52.000+02:00
Without this commit, this causes a busy loop: >> foreach [a:] [1 2 3][ print mold a] Fixes: metaeducation/rebol-issues#1751 (cherry picked from commit d4b5163)
diff --git a/src/core/n-loop.c b/src/core/n-loop.c
@@ -401,7 +401,7 @@
 				else SET_NONE(vars);
 			}
 
-			// var spec is WORD:
+			// var spec is SET_WORD:
 			else if (IS_SET_WORD(words)) {
 				if (ANY_OBJECT(value) || IS_MAP(value)) {
 					*vars = *value;
@@ -414,6 +414,7 @@
 			}
 			else Trap_Arg(words);
 		}
+		if (index == rindex) index++; //the word block has only set-words: foreach [a:] [1 2 3][]
 
 		ds = Do_Blk(body, 0);
 

Original file line number	Diff line number	Diff line change
`@@ -401,7 +401,7 @@`
`401`	`401`	`else SET_NONE(vars);`
`402`	`402`	`}`
`403`	`403`
`404`		`- // var spec is WORD:`
	`404`	`+ // var spec is SET_WORD:`
`405`	`405`	`else if (IS_SET_WORD(words)) {`
`406`	`406`	`if (ANY_OBJECT(value) \|\| IS_MAP(value)) {`
`407`	`407`	`vars = value;`
`@@ -414,6 +414,7 @@`
`414`	`414`	`}`
`415`	`415`	`else Trap_Arg(words);`
`416`	`416`	`}`
	`417`	`+ if (index == rindex) index++; //the word block has only set-words: foreach [a:] [1 2 3][]`
`417`	`418`
`418`	`419`	`ds = Do_Blk(body, 0);`
`419`	`420`