411 REFERENCE · Wikibooks
Rebol Programming/first+
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
USAGE:
FIRST+ 'word
DESCRIPTION:
Return FIRST of series, and increment the series index.
FIRST+ is a function value.
ARGUMENTS
word -- Word must be a series. (Type: word paren)
(SPECIAL ATTRIBUTES)
catch
SOURCE CODE
first+: func [
{Return FIRST of series, and increment the series index.}
[catch]
'word [word! paren!] "Word must be a series."
][
if paren? :word [set/any 'word do :word]
throw-on-error [also pick get word 1 set word next get word]
]