assoc-uses ( assoc' set -- )

Vocabulary

tools.crossref.private

Inputs

assoc'	an object
set	an object

Outputs

None

Definition

USING: assocs kernel namespaces sets ;

IN: tools.crossref.private

: assoc-uses ( assoc' set -- )
    over visited get ?adjoin
    [ [ quot-uses ] curry [ bi@ ] curry assoc-each ] [ 2drop ]
    if ; inline