Fix obvious typo in part combiner in active<?

diff --git a/scm/part-combiner.scm b/scm/part-combiner.scm
index 21cfa99326ac9f1083da409d166333bc27ce5058..88c0b88fa6be7d94d61f6d8f40c946176c449309 100644 (file)
--- a/scm/part-combiner.scm
+++ b/scm/part-combiner.scm
@@ -149,7 +149,7 @@ Voice-state objects
 
     (define (active<? a b)
       (cond ((symbol<? (car a) (car b)) #t)
-           ((symbol<? (car b) (car b)) #f)
+           ((symbol<? (car b) (car a)) #f)
            (else (< (cdr a) (cdr b)))))
 
     (define (analyse-span-event active ev)