keyed-vocabs ( str quot -- seq )


Vocabulary
help.vocabs

Inputs
stran object
quotan object


Outputs
seqan 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