FIX: WRITE should use MOLD instead of FORM when writing an object int…

…o a file fixes: #16 related to: Oldes/Rebol-issues#2007
Oldes · May 26, 2020 · 3360dac · 3360dac
1 parent 6d083e4
commit 3360dac
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/src/core/p-file.c b/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);
 		}
 

diff --git a/src/tests/units/port-test.r3 b/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===