[REBOL] Re: Core 2.6 - Last minute requests - take your chance!
From: rotenca:telvia:it at: 10-Apr-2002 1:04
Hi Petr,
I don't remember my number :-(
##) Support for native continue function (or continue refinement for break) in
loop functions, or something like this example for forall (but i think this is
slow):
continue: does [throw/name none 'continue]
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"
][
while [not tail? get word] [
catch/name body 'continue
set word next get word
]
]
a: [1 2 3 4 1 2 3 4]
forall a [if 2 < first a [continue] print first a]
---
Ciao
Romano