Hi Ladislav,
On Saturday, August 31, 2002, 10:58:41 AM, you wrote:
LM> Meanwhile I use my DEFAULT function:
BTW Ladislav, do you think there could be any problems with this
alternative version?
default: func [
[throw]
code [block!]
fault [block!]
/good pass [block!]
/local result
] [
either error? set/any 'result try code [
fault: func [[throw] error [error!]] fault
fault result
] [
do any [pass [get/any 'result]]
]
]
Regards,
Gabriele.
--
Gabriele Santilli <[EMAIL PROTECTED]> -- REBOL Programmer
Amigan -- AGI L'Aquila -- REB: http://web.tiscali.it/rebol/index.r
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
