Release: bump version.

[lilypond.git] / scm / song.scm

diff --git a/scm/song.scm b/scm/song.scm
index 9655e321e49afe05c00a48361d2d8f8fc3bbc608..ffa53816c22293af75ab27f862bd4c137313fc5b 100644 (file)
--- 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)