X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Flsr%2Fheavily-customized-polymetric-time-signatures.ly;h=c06315257cb1efd25d5a385c8c7d8be749b6514a;hb=50be93de6195cc1240ea0608f01a4c933867d764;hp=32ee2eb564d9d447cd788b7d9cd1ee0107ffb8a9;hpb=9b81e29e93efacd46e4bbb89d9e37cb7d12977f8;p=lilypond.git

diff --git a/input/lsr/heavily-customized-polymetric-time-signatures.ly b/input/lsr/heavily-customized-polymetric-time-signatures.ly
index 32ee2eb564..c06315257c 100644
--- a/input/lsr/heavily-customized-polymetric-time-signatures.ly
+++ b/input/lsr/heavily-customized-polymetric-time-signatures.ly
@@ -5,12 +5,12 @@
 \header {
   lsrtags = "rhythms, percussion"
  texidoc = "
-Though the set-time-signature thing was not the most essential here, it
-has been included to show the beat of this piece (which is a template
-of a real balkan song!).
+Though the polymetric time signature shown was not the most essential
+item here, it has been included to show the beat of this piece (which
+is the template of a real Balkan song!).
 " }
 % begin verbatim
-#(define (compound-time one two three four five six seven eight nine ten
+#(define (set-time-signature one two three four five six seven eight nine ten
 eleven num)
  (markup #:override '(baseline-skip . 0) #:number
   (#:line ((#:column (one num)) #:vcenter "+" (#:column (two num))
@@ -26,7 +26,7 @@ melody =
        \set Staff.instrumentName = "Bb Sop."
        \key g \major \time 25/8
      \override Staff.TimeSignature #'stencil = #ly:text-interface::print
- \override Staff.TimeSignature #'text = #(compound-time "3" "2" "2" "3"
+ \override Staff.TimeSignature #'text = #(set-time-signature "3" "2" "2" "3"
 "2" "2" "2" "2 " "3" "2" "2" "8" )
        \set Staff.beatGrouping = #'(3 2 2 3 2 2 2 2 3 2 2)
        #(override-auto-beam-setting '(end * * 25 8) 3 8)