Merge branch 'lilypond/translation'

[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..d78e85a5db27cfe4bedbaa6526b90db66c0e3149 100644 (file)
--- a/input/regression/scheme-engraver-instance.ly
+++ b/input/regression/scheme-engraver-instance.ly
@@ -25,7 +25,7 @@
                     (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
+                                             (format #f "~a.~a" instance-id
                                                      private-note-counter))))))))))
   }
 }
@@ -33,4 +33,4 @@
 <<
   \relative c'' { c4 d e f }
   \\ \relative c' { c4 d e f }
->>
\ No newline at end of file
+>>