Revert "Fix foreach with set-word"

This reverts commit 63115b1.

because it breaks the following code in r3-gui.r3

    unless foreach [here: hand] sys-hand [
        if handler/priority > hand/priority [
            insert here handler
            break/return true
        ]
    ] [
        append sys-hand handler
    ]

Author: zsx

src/core/n-loop.c

@@ -331,10 +331,10 @@
 			vars = FRM_VALUE(frame, i);
 			words = FRM_WORD(frame, i);
 
-			if (index < tail) {
-				// var spec is WORD
-				if (IS_WORD(words)) {
+			// var spec is WORD
+			if (IS_WORD(words)) {
 
+				if (index < tail) {
 
 					if (ANY_BLOCK(value)) {
 						*vars = *BLK_SKIP(series, index);
@@ -395,24 +395,23 @@
 							VAL_CHAR(vars) = GET_ANY_CHAR(series, index);
 						}
 					}
+					index++;
 				}
+				else SET_NONE(vars);
+			}
 
-				// var spec is WORD:
-				else if (IS_SET_WORD(words)) {
-					if (ANY_OBJECT(value) || IS_MAP(value)) {
-						*vars = *value;
-					} else {
-						VAL_SET(vars, REB_BLOCK);
-						VAL_SERIES(vars) = series;
-						VAL_INDEX(vars) = index;
-					}
-					//if (index < tail) index++; // do not increment block.
+			// var spec is WORD:
+			else if (IS_SET_WORD(words)) {
+				if (ANY_OBJECT(value) || IS_MAP(value)) {
+					*vars = *value;
+				} else {
+					VAL_SET(vars, REB_BLOCK);
+					VAL_SERIES(vars) = series;
+					VAL_INDEX(vars) = index;
 				}
-				else Trap_Arg(words);
-
-				index++;
+				//if (index < tail) index++; // do not increment block.
 			}
-			else SET_NONE(vars);
+			else Trap_Arg(words);
 		}
 
 		ds = Do_Blk(body, 0);