}
-\version "2.14.0"
+\version "2.19.21"
\layout {
\context {
(set! instance-counter (1+ instance-counter))
(let ((instance-id instance-counter)
(private-note-counter 0))
- `((listeners
- (note-event
- . ,(lambda (engraver event)
- (set! private-note-counter (1+ private-note-counter))
- (let ((text (ly:engraver-make-grob engraver 'TextScript event)))
- (ly:grob-set-property! text 'text
- (format #f "~a.~a" instance-id
- private-note-counter))))))))))
+ (make-engraver
+ (listeners
+ ((note-event engraver event)
+ (set! private-note-counter (1+ private-note-counter))
+ (let ((text (ly:engraver-make-grob engraver 'TextScript event)))
+ (ly:grob-set-property! text 'text
+ (format #f "~a.~a" instance-id
+ private-note-counter)))))))))
}
}
<<
- \relative c'' { c4 d e f }
- \\ \relative c' { c4 d e f }
+ \relative { c''4 d e f }
+ \\ \relative { c'4 d e f }
>>