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