X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fautochange.scm;h=b358c22b53dd0a610abcb28266601d42a645ee3e;hb=740139c0fc7c61a5864b304fef73c736c342ed96;hp=c445997199b8f53e6ac968cdac97b0098a3e594c;hpb=3d0c45c00d400d3430fc4c0beb41cf96ebd28889;p=lilypond.git

diff --git a/scm/autochange.scm b/scm/autochange.scm
index c445997199..b358c22b53 100644
--- a/scm/autochange.scm
+++ b/scm/autochange.scm
@@ -1,46 +1,46 @@
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; 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)
     (if (null? event-list)
-	acc
-	(let* ((now-tun (caar event-list))
-	       (evs (map car (cdar event-list)))
-	       (now (car now-tun))
-	       (notes (filter (lambda (x)
-				(equal? (ly:event-property  x 'class) 'note-event))
-			      evs))
-	       (pitch (if (pair? notes)
-			  (ly:event-property (car notes) 'pitch)
-			  #f)))
-	  ;; tail recursive.
-	  (if (and pitch (not (= (ly:pitch-steps pitch) 0)))
-	      (generate-split-list #f
-				   (cdr event-list)
-				   (cons (cons
+        acc
+        (let* ((now-tun (caar event-list))
+               (evs (map car (cdar event-list)))
+               (now (car now-tun))
+               (notes (filter (lambda (x)
+                                (ly:in-event-class? x 'note-event))
+                              evs))
+               (pitch (if (pair? notes)
+                          (ly:event-property (car notes) 'pitch)
+                          #f)))
+          ;; tail recursive.
+          (if (and pitch (not (= (ly:pitch-steps pitch) 0)))
+              (generate-split-list #f
+                                   (cdr event-list)
+                                   (cons (cons
+
+                                          (if change-moment
+                                              change-moment
+                                              now)
+                                          (sign (ly:pitch-steps pitch))) acc))
+              (generate-split-list
+               (if pitch #f now)
+               (cdr event-list) acc)))))
 
-					  (if change-moment
-					      change-moment
-					      now)
-					  (sign (ly:pitch-steps pitch))) acc))
-	      (generate-split-list
-	       (if pitch #f now)
-	       (cdr event-list) acc)))))
-  
   (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)))
-	 (evs (car context-list))
+         (m1 (make-non-relative-music (context-spec-music music 'Voice "one")))
+         (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
-			   #f
-			   rev
-			   '())
-			  '())))
+         (split (reverse! (generate-split-list
+                           #f
+                           rev
+                           '())
+                          '())))
     (set! (ly:music-property m 'element) music)
     (set! (ly:music-property m 'split-list) split)
     m))