<rename> ( word vocab new-name -- rename )

Vocabulary

vocabs.parser

Inputs

word	an object
vocab	an object
new-name	an object

Outputs

rename

an object

Definition

USING: accessors assocs hashtables kernel vocabs ;

IN: vocabs.parser

: <rename> ( word vocab new-name -- rename )
    [
        2dup load-vocab words>> dupd at or?
        [ swap no-word-in-vocab ] unless
    ] dip associate rename boa ;