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 596b0fea3292dbb30314ae239fb07f3769b17d16..06572f34e4efe8ad4e41dc1a7636936949cd3481 100644 (file)
--- 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 50db3bcd518a67c9c78163395779512fcbe65113..75e6da5349077ef08cb64f9d83665a88f4af6fae 100644 (file)
--- 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