Rebol Programming/move

= USAGE: = MOVE source offset /part length /skip size /to

= DESCRIPTION: = Move a value or span of values in a series.

MOVE is a function value. = ARGUMENTS: =
 * source -- Source series (Type: series)
 * offset -- Offset to move by, or index to move to (Type: integer)

= REFINEMENTS: =
 * /part -- Move part of a series
 * length -- The length of the part to move (Type: integer)
 * /skip -- Treat the series as records of fixed size
 * size -- Size of each record (Type: integer)
 * /to -- Move to an index relative to the head of the series

= (SPECIAL ATTRIBUTES) =
 * catch

= SOURCE CODE = move: func [ "Move a value or span of values in a series." [catch] source [series!] "Source series" offset [integer!] "Offset to move by, or index to move to" /part "Move part of a series" length [integer!] "The length of the part to move" /skip "Treat the series as records of fixed size" size [integer!] "Size of each record" /to {Move to an index relative to the head of the series} ][   unless length [length: 1] if skip [ if 1 > size [throw-error 'script 'out-of-range size] offset: either to [offset - 1 * size + 1] [offset * size] length: length * size ]    part: copy/part source length remove/part source length insert either to [at head source offset] [ system/words/skip source offset ] part ]