X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fautochange.scm;h=54f5e96250ce90e376a9113856ac28f419e1a3b2;hb=3d8089a42af6304edb8dad56220e845c84832bb2;hp=19921cf64184d76e611ed4b9fe553552678d4b7e;hpb=803e5864749fea2cd888525ebcf47fb94baeafd1;p=lilypond.git

diff --git a/scm/autochange.scm b/scm/autochange.scm
index 19921cf641..54f5e96250 100644
--- a/scm/autochange.scm
+++ b/scm/autochange.scm
@@ -1,7 +1,7 @@
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; autochange - fairly related to part combining.
+;; autochange.scm - fairly related to part combining.
 
 (define-public (make-autochange-music parser music)
   (define (generate-split-list change-moment event-list acc)
@@ -33,7 +33,7 @@
   (let* ((m (make-music 'AutoChangeMusic))
 	(m1 (make-non-relative-music (context-spec-music music 'Voice "one")))
 	 (context-list (recording-group-emulate music
-						(ly:parser-lookup parser partCombineListener)))
+						(ly:parser-lookup parser 'partCombineListener)))
 	 (evs (car context-list))
          (rev (reverse! (cdar context-list)))
 	 (split (reverse! (generate-split-list