Rebol 编程/first+

用法

FIRST+ 'word 

描述

返回序列的第一个元素，并递增序列索引。

FIRST+ 是一个函数值。

参数

• word -- Word 必须是一个序列。（类型：字 paren）

(特殊属性)

• 捕获

源代码

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]
]