store-dependencies-of-type ( word assoc symbol prop-name -- )

Vocabulary

compiler.crossref

Inputs

word	an object
assoc	an object
symbol	an object
prop-name	an object

Outputs

None

Definition

USING: assocs kernel words ;

IN: compiler.crossref

: store-dependencies-of-type
    ( word assoc symbol prop-name -- )
    [
        rot [ [ nip ] ] dip [ = ] curry compose assoc-filter
        keys
    ] dip set-word-prop ;