disk-vocabs-recursive-for-prefix ( prefix -- assoc )
Factor handbook » Developer tools » Vocabulary hierarchy tools
Prev:disk-vocabs-for-prefix ( prefix -- assoc )
Next:no-roots ( assoc -- seq )


Vocabulary
vocabs.hierarchy

Inputs
prefixan object


Outputs
assocan object


Definition
USING: arrays assocs kernel namespaces sequences vocabs
vocabs.hierarchy.private vocabs.loader ;

IN: vocabs.hierarchy

: disk-vocabs-recursive-for-prefix ( prefix -- assoc )
[
[ vocab-roots get ] dip [ [ dup ] ] dip
[ (disk-vocabs-recursive) ] curry compose map>alist
] [
unrooted-disk-vocabs-recursive [ lookup-vocab ] map!
f swap 2array
] bi suffix ;