X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Foptional-args.ly;h=8277ce28c040647e7b62662c22e3c0c335544b45;hb=b872748c6aa8bb721ced458691b38ac2fac5dfc8;hp=c92c6a143b3d6caa2b2d49938a29ae5a391d3e6c;hpb=82bc9ad690e201aaa55694f8b92261ae7338f56a;p=lilypond.git diff --git a/input/regression/optional-args.ly b/input/regression/optional-args.ly index c92c6a143b..8277ce28c0 100644 --- a/input/regression/optional-args.ly +++ b/input/regression/optional-args.ly @@ -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 }