ATRONIX/FIX: Fix break from remove-each

Reported by MichaT from altme.

This is what the actual result:
>> remove-each n s: [ 1 2 3 4] [ print n if n = 2 [ break] true ] s
1
2
== [3 4]

This is what's expected:
>> remove-each n s: [ 1 2 3 4] [ print n if n = 2 [ break] true ] s
1
2
== [2 3 4]

Fixes: metaeducation/rebol-issues#2192

(cherry picked from commit b336459)

src/core/n-loop.c

@@ -419,7 +419,10 @@
 		ds = Do_Blk(body, 0);
 
 		if (THROWN(ds)) {
-			if ((err = Check_Error(ds)) >= 0) break;
+			if ((err = Check_Error(ds)) >= 0) {
+				index = rindex;
+				break;
+			}
 			// else CONTINUE:
 			if (mode == 1) SET_FALSE(ds); // keep the value (for mode == 1)
 		} else {