From 398c87d330f24a3838553158e388c42e8fe132cb Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Thu, 2 Jul 2015 16:37:13 +0200 Subject: [PATCH] Issue 4474/2: Export get-next-unique-voice-name from lily module --- scm/ly-syntax-constructors.scm | 5 ----- scm/music-functions.scm | 8 ++++++++ 2 files changed, 8 insertions(+), 5 deletions(-) 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 -- 2.39.5