Imported Upstream version 2.16.0

[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 4136171a102b551a970acbafe48957593f704f76..717549b838ffae53e151dbf00266ec0008b2c4ae 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.16.0"
 
 \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 "~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
+>>