draw-cfg ( cfg pass pass# -- cfg )

Vocabulary

compiler.cfg.graphviz

Inputs

cfg	an object
pass	an object
pass#	an object

Outputs

cfg

an object

Definition

USING: accessors graphviz.render kernel math.parser sequences ;

IN: compiler.cfg.graphviz

: draw-cfg ( cfg pass pass# -- cfg )
    [ dup cfgviz ] [ name>> "-" prepend ]
    [ number>string prepend svg ] tri* ;