value-mapping ( from to -- str )

Vocabulary

compiler.cfg.gvn.testing

Inputs

from	an object
to	an object

Outputs

str

an object

Definition

USING: assocs compiler.cfg.gvn.graph formatting kernel
namespaces ;

IN: compiler.cfg.gvn.testing

: value-mapping ( from to -- str )
    over exprs>vns get value-at*
    [ expr>str "%d -> <%d> (%s)\\l" sprintf ]
    [ drop "%d -> <%d>\\l" sprintf ] if ;