SVG backend: rename "feta-alphabet-to-path" procedure.

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index a5a108a964aabad086292aafccffe97fe2ba30a6..57c5e733a0b63cd9e8e6b0dd0459cd925280b26b 100644 (file)
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -266,7 +266,7 @@
        (extract-glyph all-glyphs glyph size))))
 
 
-(define (feta-alphabet-to-path font size glyph)
+(define (music-string-to-path font size glyph)
   (let* ((name-style (font-name-style font))
         (scaled-size (/ size lily-unit-length))
         (font-file (ly:find-file (string-append name-style ".svg"))))
@@ -355,13 +355,13 @@
 (define (glyph-string font size cid glyphs)
   (define path "")
   (if (= 1 (length glyphs))
-      (set! path (feta-alphabet-to-path font size (car glyphs)))
+      (set! path (music-string-to-path font size (car glyphs)))
       (begin
        (set! path
              (string-append (eo 'g)
                             (string-join
                               (map (lambda (x)
-                                     (feta-alphabet-to-path font size x))
+                                     (music-string-to-path font size x))
                                    glyphs)
                               "\n")
                             (ec 'g)))))