[REBOL] Re: [none idiom found?] The best shortcut word for "not none?"
From: fsievert:uos at: 6-Sep-2006 19:59
Anton Rolls <anton-wilddsl.net.au> schrieb:
>Looks good to me.
>I think it can't be further optimized.
Maybe something like this?
switch1: func [
"Selects a choice and evaluates the first block that follows it."
[throw]
value "Value to search for."
cases [block!] "Block of cases to search."
/default case [block!] "Default case if no others are found."
][
do any [
all [
value: find cases value
value: find next value block!
first value
]
case
]
]
CU
Frank