]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/optional-args.ly
Issue 5167/6: Changes: show \markup xxx = ... \etc assignments
[lilypond.git] / input / regression / optional-args.ly
index c92c6a143b3d6caa2b2d49938a29ae5a391d3e6c..8277ce28c040647e7b62662c22e3c0c335544b45 100644 (file)
@@ -1,4 +1,4 @@
-\version "2.19.0"
+\version "2.19.22"
 
 \header{
   texidoc= "Test optional music function arguments.
@@ -13,16 +13,16 @@ the rest is skipped."
 % Just like \relative, but defaulting to f as reference, making the
 % first note of the music the same as if written as absolute pitch
 ablative =
-#(define-music-function (parser location ref music)
+#(define-music-function (ref music)
   ((ly:pitch? #{ f #}) ly:music?)
   #{ \relative $ref $music #})
 
 % Let's take a duration and four pitches, defaulting to 2 c' d' e'
 zap = 
-#(define-music-function (parser location dur a b c d)
+#(define-music-function (dur a b c d)
   ((ly:duration? #{ 2 #}) (ly:pitch? #{ c' #})
    (ly:pitch? #{ d' #}) (ly:pitch? #{ e' #})
    ly:music?) #{ $a $dur $b $c ^\markup{!} $d  #})
 
-\new Voice { \relative c' e' \relative c' { e' } \ablative c' e' \ablative { e' }
+\new Voice { \relative c' e' \relative { e'' } \ablative c' e' \ablative { e' }
   \zap 8. c'' d'' {e''4..} \zap f''8 g'' \zap 4 a'' b'' c''' d'''2 }