- (let* ((hide_note (eq? #t (ly:context-property context 'tempoHideNote)))
- (note-mark (if (and (not hide_note) (ly:duration? dur))
+ (let* ((hide-note (eq? #t (ly:context-property context 'tempoHideNote))))
+ (metronome-markup text dur count hide-note)))
+
+(define-public (metronome-markup text dur count hide-note)
+ (let* ((note-mark (if (and (not hide-note) (ly:duration? dur))