Rebol Programming/swap

= USAGE: = SWAP series1 series2

= DESCRIPTION: = Swaps elements of a series. (Modifies)

SWAP is a function value. = ARGUMENTS =
 * series1 -- (Type: series)
 * series2 -- (Type: series)

= SOURCE CODE = swap: func [ "Swaps elements of a series. (Modifies)" series1 [series!] series2 [series!] ][   unless any [empty? series1 empty? series2] [ poke series1 1 also pick series2 1 poke series2 1 pick series1 1 ]    series1 ]