Maybe for next version of REBOL ? /PeO
switch: func [
"Selects a choice and evaluates what follows it."
value "Value to search for."
cases [block!] "Block of cases to search."
/default case "Default case if no others are found."
/cs "Do a case-sensitive search"
][
either
either cs [value: select/case cases value] [value: select cases value] [
do value
] [
either default [
do case
] [
none
]
]
]
