gvns ( -- str )

Vocabulary

compiler.cfg.gvn.testing

Inputs

None

Outputs

str

an object

Definition

USING: assocs compiler.cfg.gvn.graph namespaces sequences
sorting ;

IN: compiler.cfg.gvn.testing

: gvns ( -- str )
    vregs>vns get >alist sort [ first2 value-mapping ] map
    "" concat-as ;