Issue 5167/1: Reorganize markup commands to use object properties

[lilypond.git] / input / regression / scheme-engraver-instance.ly

diff --git a/input/regression/scheme-engraver-instance.ly b/input/regression/scheme-engraver-instance.ly
index 33296d1433d8d17f93d4498ba39e8148a22c3af1..35d9e8a4a0932fb4784ee06277eb80bb7cf84071 100644 (file)
--- a/input/regression/scheme-engraver-instance.ly
+++ b/input/regression/scheme-engraver-instance.ly
@@ -8,7 +8,7 @@
 
 }
 
-\version "2.14.0"
+\version "2.19.21"
 
 \layout {
   \context {
@@ -19,18 +19,18 @@
          (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 }
->>
\ No newline at end of file
+  \relative { c''4 d e f }
+  \\ \relative { c'4 d e f }
+>>