X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fscheme-engraver-instance.ly;h=717549b838ffae53e151dbf00266ec0008b2c4ae;hb=26a079ca2393d053315ef8dbef626c897dc9645a;hp=4393881b7c0d4e47a76311fa7230973554c8bcb3;hpb=f5bdd79efc48f52f3b1c86857f747afa3cb33dcf;p=lilypond.git

diff --git a/input/regression/scheme-engraver-instance.ly b/input/regression/scheme-engraver-instance.ly
index 4393881b7c..717549b838 100644
--- a/input/regression/scheme-engraver-instance.ly
+++ b/input/regression/scheme-engraver-instance.ly
@@ -8,7 +8,7 @@
 
 }
 
-\version "2.13.15"
+\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
+>>