X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Ftablature.scm;h=36b81106c1bcb0046b9f2a73f5b7f1aab842bacf;hb=1d3beed53413315ec6c0553b003b8c5776f8c38f;hp=668bf2faa3a1b390bc13f2552859fac18cbf1b9b;hpb=1b554886980bc48aed1ef4025f28292c694b4c55;p=lilypond.git

diff --git a/scm/tablature.scm b/scm/tablature.scm
index 668bf2faa3..36b81106c1 100644
--- a/scm/tablature.scm
+++ b/scm/tablature.scm
@@ -224,9 +224,10 @@
 
 
 ;; a callback for custom fret labels
-(define-public ((tab-note-head::print-custom-fret-label fret) grob)
+(define ((tab-note-head::print-custom-fret-label fret) grob)
   (ly:grob-set-property! grob 'text fret)
   (tab-note-head::print grob))
+(export tab-note-head::print-custom-fret-label)
 
 (define-public (tab-note-head::print grob)
   (define (is-harmonic? grob)