From 803e5864749fea2cd888525ebcf47fb94baeafd1 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Thu, 2 Nov 2006 16:02:41 +0100 Subject: [PATCH] set-part-combine fix for autochange. --- ly/music-functions-init.ly | 2 +- scm/autochange.scm | 5 +++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly index 1473970c17..a1fafa63e3 100644 --- a/ly/music-functions-init.ly +++ b/ly/music-functions-init.ly @@ -96,7 +96,7 @@ assertBeamSlope = autochange = #(define-music-function (parser location music) (ly:music?) - (make-autochange-music music)) + (make-autochange-music parser music)) applyContext = #(define-music-function (parser location proc) (procedure?) diff --git a/scm/autochange.scm b/scm/autochange.scm index e4a27d7063..19921cf641 100644 --- a/scm/autochange.scm +++ b/scm/autochange.scm @@ -3,7 +3,7 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; autochange - fairly related to part combining. -(define-public (make-autochange-music music) +(define-public (make-autochange-music parser music) (define (generate-split-list change-moment event-list acc) (if (null? event-list) acc @@ -32,7 +32,8 @@ (let* ((m (make-music 'AutoChangeMusic)) (m1 (make-non-relative-music (context-spec-music music 'Voice "one"))) - (context-list (recording-group-emulate music part-combine-listener)) + (context-list (recording-group-emulate music + (ly:parser-lookup parser partCombineListener))) (evs (car context-list)) (rev (reverse! (cdar context-list))) (split (reverse! (generate-split-list -- 2.39.5