From: David Kastrup <dak@gnu.org>
Date: Sun, 12 Feb 2012 20:26:48 +0000 (+0100)
Subject: Fix obvious typo in part combiner in active<?
X-Git-Tag: release/2.15.30-1~26
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f7ee0ca6ef6650af9b091782cb03375be6d890f8;p=lilypond.git

Fix obvious typo in part combiner in active<?
---

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)