X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fmusic-function.ly;h=4c626d1f69a0b62f0a896c4843638aa57b7423d7;hb=c0be3d8c0c337802b5a0f8d341e514e10db6de70;hp=19cb5a887cf267d49ef9d94091e7c04e0bb2c9e2;hpb=edaa86202a05fe55f974037c6c59556ee94076bc;p=lilypond.git

diff --git a/input/regression/music-function.ly b/input/regression/music-function.ly
index 19cb5a887c..4c626d1f69 100644
--- a/input/regression/music-function.ly
+++ b/input/regression/music-function.ly
@@ -7,20 +7,16 @@ demonstrate a @code{\myBar} function, which works similar to
 @code{\bar}, but is implemented completely in Scheme."
 
 }
-\version "2.3.22"
+\version "2.10.0"
 
-#(define myBar
-  (ly:make-music-function
-   (list string?)
-   (lambda (where type)
-    (context-spec-music
-     (context-spec-music (make-property-set 'whichBar type) 'Timing)
-     'Score))
-    ))
+myBar = #(define-music-function (parser location bar-type) (string?)
+          (context-spec-music
+           (context-spec-music (make-property-set 'whichBar bar-type) 'Timing)
+           'Score))
 
-\layout { raggedright = ##t }
+\layout { ragged-right = ##t }
 
 {
-    d4 \myBar #"|:" d4
+    d4 \myBar "|:" d4
 }