[REBOL] Re: Problem with 'collect?
From: AJMartin:orcon at: 17-Aug-2003 21:35
Brett wrote:
> 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 [
break
]
all [
refinement? Refinement
get bind Refinement: to word! Refinement 'Body
Refinement
]
] to path! 'Select
'Series 'Value
]
There's two 'collect in the one function.
Andrew J Martin
ICQ: 26227169
http://www.rebol.it/Valley/
http://valley.orcon.net.nz/
http://Valley.150m.com/