FEAT: CHANGE: enable any value as a data type for WRITE action

Author: Oldes

src/boot/actions.r

@@ -402,7 +402,7 @@ read: action [
 write: action [
 	{Writes to a file, URL, or port - auto-converts text strings.}
 	destination [port! file! url! block!]
-	data [binary! string! block!] {Data to write (non-binary converts to UTF-8)}
+	data  {Data to write (non-binary converts to UTF-8)}
 	/part {Partial write a given number of units}
 		length [number!]
 	/seek {Write at a specific position}

src/core/p-file.c

@@ -447,6 +447,14 @@ REBINT Mode_Syms[] = {
 		args = Find_Refines(ds, ALL_WRITE_REFS);
 		spec = D_ARG(2); // data (binary, string, or block)
 
+		if (!(IS_BINARY(spec) || IS_STRING(spec) || IS_BLOCK(spec))) {
+			//Trap1(RE_INVALID_ARG, spec);
+			REB_MOLD mo = {0};
+			Reset_Mold(&mo);
+			Mold_Value(&mo, spec, 0);
+			Set_String(spec, mo.series);
+		}
+
 		// Handle the READ %file shortcut case:
 		if (!IS_OPEN(file)) {
 			REBCNT nargs = AM_OPEN_WRITE;