vocab-in-root-summary ( vocab -- string )

Vocabulary

vocabs.metadata

Inputs

vocab

an object

Outputs

string

an object

Definition

USING: kernel sequences splitting vocabs vocabs.loader ;

IN: vocabs.metadata

: vocab-in-root-summary ( vocab -- string )
    [ vocab-summary ] [
        vocab-name ".private" ?tail drop dup find-vocab-root
        [ "`" "'" surround " in " glue ] when*
    ] bi over [ ", " glue ] [ nip ] if ;