From: hanwen <hanwen>
Date: Mon, 9 Feb 2004 12:25:02 +0000 (+0000)
Subject: (determine-split-list): robustness fix
X-Git-Tag: release/2.1.20~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a84b4ee40994576699e6d9705922d5a2c0ce64d1;p=lilypond.git

(determine-split-list): robustness fix
---

diff --git a/ChangeLog b/ChangeLog
index 4c00484346..e65ae56595 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2004-02-09  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
+	* scm/part-combiner.scm (determine-split-list): robustness fix 
+
 	* lily/paper-score.cc (process): move gc stat stuff to init.ly 
 
 	* lily/parser.yy (music_output_def_body): plug memory leak.
diff --git a/scm/part-combiner.scm b/scm/part-combiner.scm
index 5134779659..8996fa2739 100644
--- a/scm/part-combiner.scm
+++ b/scm/part-combiner.scm
@@ -462,8 +462,8 @@ Only set if not set previously.
 	       ((now-state (vector-ref result current-idx))
 		(solo-state ((if (equal? type 'solo1) car cdr) (voice-states now-state)))
 		(silent-state ((if (equal? type 'solo1) cdr car) (voice-states now-state)))
-		(silent-notes (note-events silent-state))
-		(solo-notes (note-events solo-state))
+		(silent-notes (if silent-state (note-events silent-state) '()))
+		(solo-notes (if solo-state (note-events solo-state) '()))
 		(soln (length solo-notes))
 		(siln (length silent-notes)))