cleanup. Separate into internal

[lilypond.git] / scm / output-lib.scm

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index ef38cc2dc4f777e4e54fb183d3ff8f4954b95dde..38f10b8b583cd573a8155cd4d0dc2fe0c21933cf 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -13,7 +13,7 @@
 
 ; The TabNoteHead molecule callback.
 ; Create a text molecule
-(define-public (tablature-molecule-callback grob)
+(define-public (tablature-print-function grob)
   (let ((molecule (fontify-text
                    (ly:get-default-font grob)
                    (ly:get-grob-property grob 'text)
@@ -31,7 +31,7 @@
                 )
       ) ) ) 
 
-(define-public (hammer-molecule-callback grob)
+(define-public (hammer-print-function grob)
   (let* ((note-collums (ly:get-grob-property grob 'note-columns))
          (note-column1 (cadr note-collums))
          (note-column2 (car  note-collums))