collect-vocabs ( quot -- seq )

Vocabulary

vocabs.hierarchy.private

Inputs

quot

an object

Outputs

seq

an object

Definition

USING: kernel sets sorting vocabs.hierarchy ;

IN: vocabs.hierarchy.private

: collect-vocabs ( quot -- seq )
    [ all-disk-vocabs-recursive filter-vocabs ] dip gather sort
    ; inline