chickadee » graphviz » write-edge

Write an edge

whence

The label whence

whither

The lable whither

attributes

Attributes of the edge

(define write-edge
  (case-lambda
    ((whence whither) (write-edge whence whither '()))
    ((whence whither attributes)
     (format
       #t
       "~a -> ~a [~a];"
       whence
       whither
       (attributes->string attributes)))))