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

[REBOL] forall should have a refinement /then-reset Re:(3)

From: lmecir:geocities at: 30-Aug-2000 9:11

Hi, what about: forall: func [ "Evaluates a block for every value in a series." [throw] 'word [word!] {Word set to each position in series and changed as a result} body [block!] "Block to evaluate each time" /former /head /local fmr ][ if former [fmr: get word] while [not tail? get word] [ do body set word next get word ] if former [set word fmr] if head [set word head get word] ] Regards Ladislav