X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fmake-relative.ly;h=ee458b57a7131f9ac1ed7039e77a2d8390527c05;hb=5d84bfad4626892bcffd05adcced53c8a2329047;hp=c3bf0a01d376325b98e0dfe4fb52d342dd23db3f;hpb=40aac0ae57ee113faa860ba221d83d9e6312173e;p=lilypond.git diff --git a/input/regression/make-relative.ly b/input/regression/make-relative.ly index c3bf0a01d3..ee458b57a7 100644 --- a/input/regression/make-relative.ly +++ b/input/regression/make-relative.ly @@ -1,4 +1,4 @@ -\version "2.19.2" +\version "2.19.22" \header { texidoc = "@code{make-relative} is a Scheme utility macro mainly @@ -14,7 +14,7 @@ The fragment should appear identical in both cases." \layout { ragged-right= ##t } ph = -#(define-music-function (parser location p1 p2 p3 p4 p5) +#(define-music-function (p1 p2 p3 p4 p5) (ly:pitch? ly:pitch? ly:pitch? ly:pitch? ly:pitch?) (make-relative (p1 p2 p3 p4 p5) (make-event-chord (list p1 p2 p3 p4 p5)) #{ @@ -40,8 +40,8 @@ ph = } \score { - \new PianoStaff << - \compressFullBarRests + \new PianoStaff + \compressMMRests << \new Staff = "up" { << \high \\ \middle >> } @@ -69,8 +69,8 @@ ph = } \score { - \new PianoStaff << - \compressFullBarRests + \new PianoStaff + \compressMMRests << \new Staff = "up" { << \high \\ \middle >> }