Rebol Programming/rejoin

= USAGE: = REJOIN block

= DESCRIPTION: = Reduces and joins a block of values.

REJOIN is a function value. = ARGUMENTS =
 * block -- Values to reduce and join (Type: block)

= SOURCE CODE = rejoin: func [ "Reduces and joins a block of values." block [block!] "Values to reduce and join" ][   if empty? block: reduce block [return block] append either series? first block [copy first block] [ form first block ] next block ]