From f7ee0ca6ef6650af9b091782cb03375be6d890f8 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Sun, 12 Feb 2012 21:26:48 +0100
Subject: [PATCH] Fix obvious typo in part combiner in active<?

---
 scm/part-combiner.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scm/part-combiner.scm b/scm/part-combiner.scm
index 21cfa99326..88c0b88fa6 100644
--- 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)
-- 
2.39.5