From 4f90b5ed40d61c650a66b7d6078a8e1f6f61a909 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Wed, 7 Dec 2011 14:13:14 +0100 Subject: [PATCH] Eliminate Guile deprecation warning in scm/song.scm --- scm/song.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.5