#(define graph (make-empty-graph (ly:parser-output-name parser)))
#(define (grob-name g)
(let* ((meta (ly:grob-property g 'meta))
#(define graph (make-empty-graph (ly:parser-output-name parser)))
#(define (grob-name g)
(let* ((meta (ly:grob-property g 'meta))
(if (pair? prev)
(add-edge graph (cdr prev) node-id))
(set! last-grob-action (assv-set! last-grob-action grob node-id))))
(if (pair? prev)
(add-edge graph (cdr prev) node-id))
(set! last-grob-action (assv-set! last-grob-action grob node-id))))
(if (relevant? grob file line prop)
(grob-event-node grob label file))))
#(define (grob-cache grob prop callback value)
(let* ((val-str (truncate-value value))
(if (relevant? grob file line prop)
(grob-event-node grob label file))))
#(define (grob-cache grob prop callback value)
(let* ((val-str (truncate-value value))