match-case ( master disciple -- master' )


Vocabulary
english.private

Inputs
masteran object
disciplean object


Outputs
master'an object


Definition
USING: combinators kernel unicode ;

IN: english.private

:: match-case ( master disciple -- master' )
{
{ [ master >lower master = ] [ disciple >lower ] }
{ [ master >upper master = ] [ disciple >upper ] }
{ [ master >title master = ] [ disciple >title ] }
[ disciple ]
} cond ;