parenthesize compound time sig

[David Bobroff]

I thought I had the solution already in a file but I can't find it.   I
have a compound time signature defined and I would like to enclose the
whole thing in ().   I found the snippet for enclosing a standard time
signature but I couldn't work out how to adapt it.


#(define ((compound-time one two three four) grob)
   (grob-interpret-markup grob
                          (markup #:override '(baseline-skip . 0) #:number
                                  (#:line ((#:column (one two))
                                           #:vcenter ""
                                           (#:column (three four)))))))

\score{
    \override Staff.TimeSignature  #'stencil = #(compound-time "9" "8"
"3" "4")
}

Help?

-David