[REBOL] Re: tailfunc
From: rotenca:telvia:it at: 22-Nov-2001 0:32
Hi Ladislav,
> It really doesn't work. See this:
>
> f: tail-func [first second] [
> print [first second]
> either second = 1 [first] [
> f 1 - first second - 1
> ]
> ]
> f 1 400
I didn't work (i think) because I inverted true and false: here it is the
working version, i changed the name of loop in stop to reflect new meaning and
to save a 'not or two:
stop: false
...
either stop [
stop: false
] [
until [
stop: true
error? set/any 'result do (does body)
stop
]
stop: false
return get/any 'result
]
> The set-word skip is in accordance with the way how Help (from RT) is
> written, that is all (future compatibility?).
You forget it in highfun.r.
---
Ciao
Romano