ブロックを構築するにはどうすればいいですか？括約を含む？

Question

私は[x y]のような単語のブロックを持っていると私はこれは非常に仕事しません[x: (x) y: (y)]

のブロック作りたい：そう、引数の値を収集する際

>> b: [x y] 
== [x y] 
>> collect [foreach w b [keep to-set-word w keep to-paren w]] 
== [x: x y: y] 

Answer 1

keepがappend行動に依存しているがparen!引数には、parenシリーズ全体ではなく、含まれる各値が追加されます（他の​​タイプと同じです）。 paren系列を単一の値として追加するには、keep/only（内部でappend/onlyを使用）を使用します。

>> b: [x y] 
== [x y] 
>> collect [foreach w b [keep to-set-word w keep/only to-paren w]] 
== [x: (x) y: (y)]