X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fsong.scm;h=ffa53816c22293af75ab27f862bd4c137313fc5b;hb=3df53397e259a474f2ba8daec711ca9795a2d59d;hp=9655e321e49afe05c00a48361d2d8f8fc3bbc608;hpb=b385ae6e361eeec5b1a384de80123c04021595ec;p=lilypond.git

diff --git a/scm/song.scm b/scm/song.scm
index 9655e321e4..ffa53816c2 100644
--- a/scm/song.scm
+++ b/scm/song.scm
@@ -90,9 +90,9 @@
                  ((= octave 0)
                   "")
                  ((> octave 0)
-                  (make-uniform-array #\' octave))
+                  (make-string octave #\'))
                  ((< octave 0)
-                  (make-uniform-array #\, (- 0 octave)))))
+                  (make-string (- octave) #\,))))
               (pp-duration (note-duration object))
               (if (> (note-joined object) 0) "-" ""))))
    ((rest? object)