FIX: SAVE with /header true

Oldes · Oldes · commit 6121a84301ea · 2020-10-31T12:21:15.000+01:00
fixes: Oldes/Rebol-issues#1465
diff --git a/src/mezz/mezz-save.reb b/src/mezz/mezz-save.reb
@@ -59,6 +59,7 @@ save: function [
 			header-data: any [
 				lib/all [
 					block? :value
+					block? value/1
 					first+ value ; the header (do not use TAKE)
 				]
 				[] ; empty header
diff --git a/src/tests/units/load-test.r3 b/src/tests/units/load-test.r3
@@ -128,6 +128,11 @@ Rebol [
 20312E322031303A3230202274657374222075736572406578616D706C652E63
 6F6D205B73756220626C6F636B5D0A} 
 		--assert data = load bin
+		
+		;@@ https://github.com/Oldes/Rebol-issues/issues/1465
+		bin: save/header none [1] true
+		--assert bin = #{5245424F4C205B5D0A310A}
+		--assert 1 = load bin
 ===end-group===
 
 

Original file line number	Diff line number	Diff line change
`@@ -59,6 +59,7 @@ save: function [`
`59`	`59`	`header-data: any [`
`60`	`60`	`lib/all [`
`61`	`61`	`block? :value`
	`62`	`+ block? value/1`
`62`	`63`	`first+ value ; the header (do not use TAKE)`
`63`	`64`	`]`
`64`	`65`	`[] ; empty header`