X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fscheme-engraver-instance.ly;h=35d9e8a4a0932fb4784ee06277eb80bb7cf84071;hb=50ba2171c6a88789ef5ed3673a4c6a4549400113;hp=33296d1433d8d17f93d4498ba39e8148a22c3af1;hpb=7129b9a1b73c400593ccc08418b294afef1513a1;p=lilypond.git

diff --git a/input/regression/scheme-engraver-instance.ly b/input/regression/scheme-engraver-instance.ly
index 33296d1433..35d9e8a4a0 100644
--- 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 }
+>>