(car a)
(ly:moment-main-numerator (cdr a))
(ly:moment-main-denominator (cdr a))))
(define-public (rhythmic-location->string a)
(car a)
(ly:moment-main-numerator (cdr a))
(ly:moment-main-denominator (cdr a))))
(define-public (rhythmic-location->string a)