new-reduce.red

Red[]

reduce+: func [
	"Reduce with unset!, error! -> none! conversion"
	block
	/local value new-block
][
	new-block: block
	collect [
		until [
			set/any 'value try [do/next block 'new-block]
			keep case [
				equal? block new-block [
					new-block: next block
					none
				]
				not value? 'value [none]
				true [value]
			]
			block: new-block
			tail? block
		]
	]
]