FIX: WRITE should use MOLD instead of FORM when writing an object into a file

fixes: #16
related to: Oldes/Rebol-issues#2007

Author: Oldes

src/core/p-file.c

@@ -451,11 +451,11 @@ 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))) {
+		if (!(IS_BINARY(spec) || IS_STRING(spec))) {
 			//Trap1(RE_INVALID_ARG, spec);
 			REB_MOLD mo = {0};
 			Reset_Mold(&mo);
-			Mold_Value(&mo, spec, 0);
+			Mold_Value(&mo, spec, TRUE);
 			Set_String(spec, mo.series);
 		}
 

src/tests/units/port-test.r3

@@ -84,6 +84,12 @@ Rebol [
 		--assert "test" = read/string write %foo "test"
 		delete %foo
 
+	--test-- "write non binary data to file"
+		;@@ https://github.com/Oldes/Rebol3/issues/16
+		--assert "make object! [^/    type: 'foo^/]" = read/string write %foo object [type: 'foo]
+		--assert "[a: 1]" = read/string write %foo [a: 1]
+		--assert "<foo>"  = read/string write %foo <foo>
+		delete %foo
 
 ===end-group===