[REBOL] Re: Problem with 'collect?
From: AJMartin:orcon at: 17-Aug-2003 21:35
> Very good. Strange thing though, I had incorporated a break into my
collect function with a use context too. But when I use it with your Selects
function it has an error, when I cut Selects down to the following it works
> Selects: func [
> "Repeatedly finds a value in the series and returns the value or series
> after it."
> Series [series! port!]
> Values [block!]
> ] [
> foreach Value Values collect [select series value]
That would be because of this:
Body: reduce [
foreach Refinement first :Selects collect/initial [
if equal? /local Refinement [
get bind Refinement: to word! Refinement 'Body
] to path! 'Select
There's two 'collect in the one function.
Andrew J Martin