FEAT: Make map datatype composable in closures

related to: Oldes/Rebol-issues#2685

Author: Oldes

src/core/c-frame.c

@@ -1048,7 +1048,7 @@
 	REBINT *binds = WORDS_HEAD(Bind_Table);
 
 	for (; NOT_END(data); data++) {
-		if (ANY_BLOCK(data))
+		if (ANY_BLOCK_OR_MAP(data))
 			Rebind_Block(src_frame, dst_frame, VAL_BLK_DATA(data), modes);
 		else if (ANY_WORD(data) && VAL_WORD_FRAME(data) == src_frame) {
 			VAL_WORD_FRAME(data) = dst_frame;

src/tests/units/evaluation-test.r3

@@ -501,6 +501,9 @@ Rebol [
 
 	f2: closure/with [b][compose #[num: (a + b)]][a: 1]
 	--assert #[num: 3] = try [f2 2]
+
+	--assert #[num: 4] = use[v][v: 4 compose #[num: (v)]]
+	--assert #[num: 5] = apply func [val] [compose/deep #[num: (val)]] [5]
 
 ===end-group===