-#(define (make-text-checker-once text)
- (lambda (grob) (and text-checker-once
- (if (equal? text (ly:grob-property grob 'text))
- (begin
- (set! text-checker-once #f) #t)
- #f))))
-
-#(define text-checker-once #t)
-
-\score {
- \notes\relative c'' {