FIX: TAKE/part on any-block! must return same type like the source is

fixes: Oldes/Rebol-issues#2174

Author: Oldes

src/core/t-block.c

@@ -723,7 +723,7 @@ static struct {
 
 		// if no /part, just return value, else return block:
 		if (!D_REF(2)) *D_RET = BLK_HEAD(ser)[index];
-		else Set_Block(D_RET, Copy_Block_Len(ser, index, len)); // no more /DEEP
+		else Set_Series(VAL_TYPE(value), D_RET, Copy_Block_Len(ser, index, len)); // no more /DEEP
 //		else Set_Block(D_RET, Copy_Block_Deep(ser, index, len, D_REF(4) ? COPY_DEEP: 0));
 		Remove_Series(ser, index, len);
 		return R_RET;

src/tests/units/series-test.r3

@@ -179,6 +179,15 @@ Rebol [
 	--assert "34" = take/part skip s 2 -5 ;@@ https://github.com/Oldes/Rebol-issues/issues/373
 	--assert "56" = take/part s 10
 
+	--test-- "take/part any-block!"
+		--assert [1 2] = take/part [1 2 3 4] 2
+		;@@ https://github.com/Oldes/Rebol-issues/issues/2174
+		--assert "(1 2)" = mold take/part quote (1 2 3 4) 2
+		--assert "a/b"   = mold take/part quote a/b/c 2
+		--assert "'a/b"  = mold take/part quote 'a/b/c 2
+		--assert ":a/b"  = mold take/part quote :a/b/c 2
+		--assert "a/b:"  = mold take/part quote a/b/c: 2
+
 	--test-- "take/last"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/177
 	--assert #"c" = take/last str: "abc"