NEW: full measure rests fail to compress in compressMusic block

[Adam Wilson]

> I'm not top posting.

%% Full measure rests are not compressing along with music passed to the 
%% compressMusic function.  Note that replacing "\time 3/8" with "\time 1/6"
%% in the second staff of the example below sidesteps the problem. 

\version "2.11.33"

\paper {        
        ragged-right = ##t
}
\layout { 
        \context { \Score
                \remove "Timing_translator"
                \remove "Time_signature_engraver"
                \remove "Default_bar_line_engraver"
                \override SpacingSpanner #'uniform-stretching = ##t
                \override SpacingSpanner #'strict-note-spacing = ##t
                proportionalNotationDuration = #(ly:make-moment 1 64)
        }
        \context { \Staff
                \consists "Timing_translator"
                \consists "Time_signature_engraver"
                \consists "Default_bar_line_engraver"
        }
}
                        
global = { \set Timing.defaultBarType = ""
                   \repeat unfold 4 { s4. } \bar "" \break
                 }

\new Score { <<
        \new StaffGroup { <<
                \new Staff <<
                        \global
                        {
                        \time 3/8
                        \repeat unfold 2 { R4. \bar "|" c'8[c'8 c'8] \bar "|" } 
                        }
                >>
                \new Staff <<
                        \global
                        {
                        \compressMusic #'(4 . 9) { 
                                \time 3/8 
                                %\time 1/6
                                \set Staff.timeSignatureFraction = #'(3 . 8)
                                \repeat unfold 3 { R4. \bar "|" c'8[c'8 c'8] 
\bar "|" R4. \bar "|"}
                                }       
                        }
                >>
        >> }
        
>> }