add-xref ( word dependencies crossref -- )


Vocabulary
compiler.crossref

Inputs
wordan object
dependenciesan object
crossrefan object


Outputs
None

Definition
USING: assocs kernel ;

IN: compiler.crossref

: add-xref ( word dependencies crossref -- )
rot [
[ [ swap ] ] dip [ [ drop H{ } clone ] cache ] curry
compose
] dip [ swap set-at ] curry compose assoc-each ;