child-vocab? ( prefix name -- ? )

Vocabulary

vocabs

Inputs

prefix	an object
name	an object

Outputs

?

an object

Definition

USING: kernel sequences ;

IN: vocabs

: child-vocab? ( prefix name -- ? )
    swap
    [ drop t ] [
        2dup =
        [ 2drop t ]
        [ 2dup head? [ length swap ?nth 46 = ] [ 2drop f ] if ]
        if
    ] if-empty ;