X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Flily-in-scheme.ly;h=fdf6da5ee2e455313d4c4d9fac6dd63713cb5b7c;hb=df9fc0bd0d50943cdc48d4226009bd30c3e99fe4;hp=2ddf4139fb50ef198301e0a16c2198da04cb1657;hpb=5956be580d291c1460f1c4b5f6e4a1c3e6549602;p=lilypond.git

diff --git a/input/regression/lily-in-scheme.ly b/input/regression/lily-in-scheme.ly
index 2ddf4139fb..fdf6da5ee2 100644
--- a/input/regression/lily-in-scheme.ly
+++ b/input/regression/lily-in-scheme.ly
@@ -4,43 +4,41 @@
     them with a @code{$}, both in a LilyPond context or in a Scheme
     context.
 
-In this example, the @code{\withpaddingA}, @code{\withpaddingB} and
-@code{\withpaddingC} music functions set different kinds of padding on
+In this example, the @code{\\withpaddingA}, @code{\\withpaddingB} and
+@code{\\withpaddingC} music functions set different kinds of padding on
 the @code{TextScript} grob.
 
 "
           
       }
 
-\version "2.3.16"
-\paper { raggedright = ##t }
+\version "2.19.22"
+\layout { ragged-right = ##t }
 
-withPaddingA = #(def-music-function (location padding music) (number? ly:music?)
-                     #{ \override TextScript #'padding = #$padding
-                        $music 
-                        \revert TextScript #'padding #})
+withPaddingA = #(define-music-function (padding music) (number? ly:music?)
+		 #{ \override TextScript.padding = #padding
+		 $music 
+		 \revert TextScript.padding #})
 
-withPaddingB = #(def-music-function (location padding music) (number? ly:music?)
-                     #{ \override TextScript #'padding = #$(* padding 2)
-                        $music 
-                        \revert TextScript #'padding #})
+withPaddingB = #(define-music-function (padding music) (number? ly:music?)
+		 #{ \override TextScript.padding = #(* padding 2)
+		 $music 
+		 \revert TextScript.padding #})
 
-withPaddingC = #(def-music-function (location padding music) (number? ly:music?)
-                     #{ \override TextScript #'padding = #(+ 1 $(* padding 2))
-                        $music 
-                        \revert TextScript #'padding #})
+withPaddingC = #(define-music-function (padding music) (number? ly:music?)
+		 #{ \override TextScript.padding = #(+ 1 (* padding 2))
+		    $music 
+		    \revert TextScript.padding #})
 
-\score {
-    \notemode {
-        c'^"1"
-        \withPaddingA #2
-        { c'^"2" c'^"3"}
-        c'^"4"
-        \withPaddingB #2
-        { c'^"5" c'^"6"}
-        c'^"7"
-        \withPaddingC #2
-        { c'^"8" c'^"9"}
-        c'^"10"
-    }
+{
+    c'^"1"
+    \withPaddingA #2
+    { c'^"2" c'^"3"}
+    c'^"4"
+    \withPaddingB #2
+    { c'^"5" c'^"6"}
+    c'^"7"
+    \withPaddingC #2
+    { c'^"8" c'^"9"}
+    c'^"10"
 }