From f967a5dbcad60c54f3ab7aefb875191387c5733f Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Fri, 14 Jan 2005 13:43:02 +0000 Subject: [PATCH] *** empty log message *** --- scm/music-functions.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/scm/music-functions.scm b/scm/music-functions.scm index b19cc5cf88..fa4e9f2c24 100644 --- a/scm/music-functions.scm +++ b/scm/music-functions.scm @@ -127,9 +127,8 @@ This function replaces all repeats with unfold repeats. " (let ((es (ly:music-property music 'elements)) (e (ly:music-property music 'element)) (n (ly:music-name music))) - (if (equal? n "Repeated_music") + (if (memq 'repeated-music (ly:music-property music 'types)) (begin - (if (equal? (ly:music-property music 'iterator-ctor) Chord_tremolo_iterator::constructor) (let* ((seq-arg? (memq 'sequential-music @@ -147,9 +146,9 @@ This function replaces all repeats with unfold repeats. " (if seq-arg? (ly:music-compress e (ly:make-moment (length (ly:music-property e 'elements)) 1))))) - (set! (ly:music-property music 'length) + (set! (ly:music-property music 'length-callback) Repeated_music::unfolded_music_length) - (set! (ly:music-property music 'start-moment-function) + (set! (ly:music-property music 'start-callback) Repeated_music::first_start) (set! (ly:music-property music 'iterator-ctor) Unfolded_repeat_iterator::constructor))) -- 2.39.5