From: David Kastrup <dak@gnu.org>
Date: Wed, 7 Dec 2011 13:13:14 +0000 (+0100)
Subject: Eliminate Guile deprecation warning in scm/song.scm
X-Git-Tag: release/2.15.22-1~32
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=4f90b5ed40d61c650a66b7d6078a8e1f6f61a909;p=lilypond.git

Eliminate Guile deprecation warning in scm/song.scm
---

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)