vocab-exists? ( name -- ? )

Vocabulary

vocabs.loader

Inputs

name

an object

Outputs

?

an object

Definition

USING: kernel vocabs vocabs.private ;

IN: vocabs.loader

: vocab-exists? ( name -- ? )
    [ valid-vocab-name? ]
    [ [ lookup-vocab ] [ find-vocab-root ] ?unless ] [ drop f ]
    1if ;