-(define (make-graph filename)
- (let ((empty-graph (list->vector (list filename '() '() '()))))
- (ly:atexit write-graph (list empty-graph))
- empty-graph))
+(define nodes (record-accessor graph-type 'nodes))
+(define edges (record-accessor graph-type 'edges))
+(define clusters (record-accessor graph-type 'clusters))
+(define set-nodes! (record-modifier graph-type 'nodes))
+(define set-edges! (record-modifier graph-type 'edges))
+(define set-clusters! (record-modifier graph-type 'clusters))