USING: accessors generic kernel sequences sets sorting vocabs
words ;

IN: tools.crossref

: vocab-xref ( vocab quot: ( defspec -- seq ) -- vocabs )
[ [ vocab-name ] [ words [ generic? not ] filter ] bi ] dip
map [
[ [ word? ] [ generic? not ] bi and ] filter [
dup method? [ "method-generic" word-prop ] when
vocabulary>>
] map
] gather natural-sort remove sift ; inline