Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[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/