vocab-xref ( vocab quot: ( defspec -- seq ) -- vocabs )

Vocabulary

tools.crossref

Inputs

vocab	an object
quot	a quotation with stack effect ( defspec -- seq )

Outputs

vocabs

an object

Definition

USING: accessors combinators.short-circuit generic kernel
sequences sets sorting vocabs words ;

IN: tools.crossref

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