[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

1 · 2 · 3 · [4] · See whole thread