with-edgeop ( graph quot -- )

Vocabulary

graphviz.dot.private

Inputs

graph	an object
quot	an object

Outputs

None

Definition

USING: accessors kernel namespaces ;

IN: graphviz.dot.private

: with-edgeop ( graph quot -- )
    [ dup directed?>> "-> " "-- " ? edgeop ] dip with-variable ;
    inline