Merge http://git.sv.gnu.org/r/lilypond

[lilypond.git] / input / regression / apply-context.ly

diff --git a/input/regression/apply-context.ly b/input/regression/apply-context.ly
index 9eff3c001d57e3c31baceb9f33304e5dbbfd4136..abcbd3028165077e2555452d23d8ce2ade465238 100644 (file)
--- a/input/regression/apply-context.ly
+++ b/input/regression/apply-context.ly
@@ -1,5 +1,5 @@
 
-\version "2.7.10"
+\version "2.10.0"
 
 
 \header {
@@ -14,7 +14,7 @@ This example prints a bar-number during processing on stdout.
 
 }
 
-\layout { raggedright= ##t }
+\layout { ragged-right= ##t }
 
 
 \relative c'' {
@@ -24,7 +24,7 @@ This example prints a bar-number during processing on stdout.
   
   \applyContext
   #(lambda (tr)
-    (format #t "\nWe were called in barnumber ~a.\n"
+    (ly:progress "\nWe were called in bar number ~a.\n"
      (ly:context-property tr 'currentBarNumber)))
   c1 c1
 }