check-create ( name vocab -- name vocab )

Vocabulary

words

Inputs

name	a string
vocab	a string

Outputs

name	a string
vocab	a string

Word description

Throws a check-create error if name or vocab is not a string.

Error description

Thrown if create-word is called with invalid parameters.

Definition

USING: kernel strings vocabs ;

IN: words

: check-create ( name vocab -- name vocab )
    2dup [ string? ] [ [ string? ] [ vocab? ] bi or ] bi* and
    [ bad-create ] unless ;