FEAT: break/return now has priority over regular return value from remove-each

Author: Oldes

src/core/n-loop.c

@@ -489,6 +489,7 @@ skip_hidden: ;
 	if (mode == LM_REMOVE) {
 		// Remove hole (updates tail):
 		if (windex < index) Remove_Series(series, windex, index - windex);
+		if (err == 2) return R_TOS1;  // If BREAK/RETURN
 		if (return_count) {
 			index -= windex;
 			SET_INTEGER(DS_RETURN, IS_MAP(value) ? index / 2 : index);

src/tests/units/series-test.r3

@@ -984,6 +984,11 @@ Rebol [
 	--assert s = [2 3 4]
 	--assert 1 = remove-each/count n s: [1 2 3 4] [if n = 2 [break] true]
 	--assert s = [2 3 4]
+--test-- "break/return in remove-each"
+	--assert 'x = remove-each n s: [1 2 3 4] [if n = 2 [break/return 'x] true]
+	--assert s = [2 3 4]
+	--assert 'x = remove-each/count n s: [1 2 3 4] [if n = 2 [break/return 'x] true]
+	--assert s = [2 3 4]
 
 ===end-group===