<alphanum-insensitive> ( obj -- alphanum )


Vocabulary
sorting.human

Inputs
objan object


Outputs
alphanuman object


Definition
USING: accessors kernel strings unicode ;

IN: sorting.human

: <alphanum-insensitive> ( obj -- alphanum )
alphanum new swap dup string?
[ collation-key/nfd drop ] when >>obj ; inline