add-cfg-vertex ( graph bb -- graph' )


Vocabulary
compiler.cfg.graphviz

Inputs
graphan object
bban object


Outputs
graph'an object


Definition
USING: accessors graphviz graphviz.notation kernel ;

IN: compiler.cfg.graphviz

: add-cfg-vertex ( graph bb -- graph' )
[ number>> <node> ] [ bb-label =label ]
[ kill-block?>> [ "grey" =color "filled" =style ] when ] tri
add ;