FEAT: support map! in remove-each

Author: Oldes

src/boot/natives.reb

@@ -272,7 +272,7 @@ repeat: native [
 remove-each: native [
 	{Removes values for each block that returns true; returns removal count.}
 	'word [word! block!] {Word or block of words to set each time (local)}
-	data [series!] {The series to traverse (modified)}
+	data [series! map!] {The series to traverse (modified)}
 	body [block!] {Block to evaluate (return TRUE to remove)}
 ]
 

src/core/n-loop.c

@@ -477,6 +477,7 @@ skip_hidden: ;
 		// Remove hole (updates tail):
 		if (windex < index) Remove_Series(series, windex, index - windex);
 		SET_INTEGER(DS_RETURN, index - windex);
+		if (IS_MAP(value)) return R_ARG2;
 		return R_RET;
 	}
 

src/tests/units/map-test.r3

@@ -307,4 +307,13 @@ Rebol [
 
 ===end-group===
 
+===start-group=== "remove-each with map!"
+	;@@ https://github.com/red/REP/issues/93
+	--test-- "remove-each with map"
+		m: #(a 1 "b" 2 c #[none] d: 3)
+		--assert m = remove-each [k v] m [any [string? k none? v]]
+		--assert [a d] = words-of m
+
+===end-group===
+
 ~~~end-file~~~