handle-case ( key keyword-map -- key assoc )

Vocabulary

xmode.keyword-map

Inputs

key	an object
keyword-map	an object

Outputs

key	an object
assoc	an object

Definition

USING: accessors kernel unicode ;

IN: xmode.keyword-map

: handle-case ( key keyword-map -- key assoc )
    [ ignore-case?>> [ >upper ] when ] [ assoc>> ] bi ;