string>state ( string -- state )

Vocabulary

usa-cities

Inputs

string

an object

Outputs

state

an object

Definition

USING: accessors kernel sequences ;

IN: usa-cities

MEMO: string>state ( string -- state )
    [ states [ name>> = ] with find nip ] [ no-such-state ]
    ?unless ;