keyed-vocabs ( str quot -- seq )

Vocabulary

help.vocabs

Inputs

str	an object
quot	an object

Outputs

seq

an object

Definition

USING: accessors assocs kernel sequences sorting
vocabs.hierarchy ;

IN: help.vocabs

: keyed-vocabs ( str quot -- seq )
    [ all-disk-vocabs-recursive ] 2dip [ [ swap ] curry ] dip
    [ member? ] compose compose
    [ filter no-prefixes [ name>> ] sort-by ] curry assoc-map ;
    inline