- write-node labelprocedure
- write-node label attributesprocedure
Write a node
- label
- The node's label
- attributes
- Attributes of the node
(define write-node (case-lambda ((label) (write-node label '())) ((label attributes) (format #t "~a [~a];" label (attributes->string attributes)))))