X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fflag-styles.scm;h=502cb7738cab06b2e206a6e462570cab01642a75;hb=8aa5e3c7392cc29515c55d57a0bf0e6da8dc03ce;hp=98ec0e4d80b1a742e9b4e96844152e0c321b2e05;hpb=e7aa6c445f463844dbaa52d38ea4aac2882b5601;p=lilypond.git

diff --git a/scm/flag-styles.scm b/scm/flag-styles.scm
index 98ec0e4d80..502cb7738c 100644
--- a/scm/flag-styles.scm
+++ b/scm/flag-styles.scm
@@ -214,11 +214,12 @@ a flag always touches a staff line."
 
 
 
-(define-public ((glyph-flag flag-style) grob)
+(define ((glyph-flag flag-style) grob)
   "Simulatesthe default way of generating flags: Look up glyphs
 @code{flags.style[ud][1234]} from the feta font and use it for the flag
 stencil."
   (create-glyph-flag flag-style "" grob))
+(export glyph-flag)