[REBOL] Re: COLLECTing results
From: brett:codeconscious at: 24-Jul-2003 16:12
Oops silly mistake. Forgot the DO.
collect: func [
{Collects block evaluations, use with For, Repeat, etc.}
block [block!]
/init result "Initialise the result series."
/only "Inserts into result using Only refinement."
] [
if empty? block [return block]
compose/deep [
result: any [result make block! 100]
(pick [insert insert/only] not only) tail result do [(block)]
result
]
]
I wonder if filtering can be added in a similar way?
P.S Andrew: thanks for the tip regarding the "not only".
Regards,
Brett.
