-#(define (compound-time grob one two num)
- (interpret-markup
- (ly:grob-layout grob)
- '(((baseline-skip . 2)
- (word-space . 2)
- (font-family . number)))
- (markup
- #:line ( #:column (one num) #:lower 1 "+" #:column (two num)))))
+#(define (compound-time one two num)
+ (markup #:override '(baseline-skip . 2) #:number
+ (#:line ((#:column (one num)) #:lower 1 "+" (#:column (two num))))))
+