From: David Kastrup <dak@gnu.org>
Date: Thu, 2 Jul 2015 14:37:13 +0000 (+0200)
Subject: Issue 4474/2: Export get-next-unique-voice-name from lily module
X-Git-Tag: release/2.19.23-1~13
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=398c87d330f24a3838553158e388c42e8fe132cb;p=lilypond.git

Issue 4474/2: Export get-next-unique-voice-name from lily module
---

diff --git a/scm/ly-syntax-constructors.scm b/scm/ly-syntax-constructors.scm
index 596b0fea32..06572f34e4 100644
--- a/scm/ly-syntax-constructors.scm
+++ b/scm/ly-syntax-constructors.scm
@@ -219,11 +219,6 @@ into a @code{MultiMeasureTextEvent}."
                 '()))
         '())))
 
-(define unique-counter -1)
-(define (get-next-unique-voice-name)
-  (set! unique-counter (1+ unique-counter))
-  (call-with-output-string (lambda (p) (format p "uniqueContext~s" unique-counter))))
-
 (define-ly-syntax-loc (lyric-event text duration)
   (make-lyric-event text duration))
 
diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 50db3bcd51..75e6da5349 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -545,6 +545,14 @@ in @var{grob}."
       (Voice Slur direction ,DOWN))
     general-grace-settings))
 
+;; Getting a unique context id name
+
+(define-session unique-counter -1)
+(define-safe-public (get-next-unique-voice-name)
+  (set! unique-counter (1+ unique-counter))
+  (format #f "uniqueContext~s" unique-counter))
+
+
 (define-safe-public (make-voice-props-set n)
   (make-sequential-music
    (append