refine-value-info ( info value -- )

Vocabulary

compiler.tree.propagation.info

Inputs

info	an object
value	an object

Outputs

None

Definition

USING: assocs compiler.tree.propagation.copy kernel namespaces
sequences ;

IN: compiler.tree.propagation.info

: refine-value-info ( info value -- )
    resolve-copy value-infos get
    [ assoc-stack [ value-info-intersect ] when* ] 2keep
    last set-at ;