FIX: reword expecting that maps cannot accept none values

Oldes · Oldes · commit 516dfee630e9 · 2021-01-20T20:52:31.000+01:00
related to: Oldes/Rebol-wishes#21
diff --git a/src/mezz/mezz-series.reb b/src/mezz/mezz-series.reb
@@ -234,7 +234,7 @@ reword: func [
 				]
 				unless empty? w [
 					unless empty? char-end [w: append copy w char-end]
-					poke vals w unless unset? :v [:v]
+					either unset? :v [ remove/key vals w ][ poke vals w :v ]
 				]
 			]
 		]
@@ -249,7 +249,7 @@ reword: func [
 				]
 				unless empty? w [
 					unless empty? char-end [w: append copy w char-end]
-					poke vals w unless unset? :v [:v]
+					either unset? :v [ remove/key vals w ][ poke vals w :v ]
 				]
 			]
 		]

Original file line number	Diff line number	Diff line change
`@@ -234,7 +234,7 @@ reword: func [`
`234`	`234`	`]`
`235`	`235`	`unless empty? w [`
`236`	`236`	`unless empty? char-end [w: append copy w char-end]`
`237`		`- poke vals w unless unset? :v [:v]`
	`237`	`+ either unset? :v [ remove/key vals w ][ poke vals w :v ]`
`238`	`238`	`]`
`239`	`239`	`]`
`240`	`240`	`]`
`@@ -249,7 +249,7 @@ reword: func [`
`249`	`249`	`]`
`250`	`250`	`unless empty? w [`
`251`	`251`	`unless empty? char-end [w: append copy w char-end]`
`252`		`- poke vals w unless unset? :v [:v]`
	`252`	`+ either unset? :v [ remove/key vals w ][ poke vals w :v ]`
`253`	`253`	`]`
`254`	`254`	`]`
`255`	`255`	`]`