FEAT: add /part refinement to remold function

related to: Oldes/Rebol-issues#983

Author: Oldes

src/mezz/mezz-series.reb

@@ -68,8 +68,10 @@ remold: func [
 	/only {For a block value, mold only its contents, no outer []}
 	/all  {Mold in serialized format}
 	/flat {No indentation}
+	/part {Limit the length of the result}
+	limit [integer!]
 ][
-	apply :mold [reduce :value only all flat]
+	apply :mold [reduce :value only all flat part limit]
 ]
 
 charset: func [

src/tests/units/mold-test.r3

@@ -304,6 +304,10 @@ Rebol [
 	;@@ https://github.com/Oldes/Rebol-issues/issues/2279
 		--assert "[[[^/    1^/]]]" = mold load {[[[^/1^/]]]}
 
+	--test-- "remold"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/983
+		--assert {[[1 2 3 4] ["A" [1 2 3 4]]]} = remold/flat [b c]
+
 ===end-group===
 
 ===start-group=== "mold map!"