(determine-split-list): robustness fix

diff --git a/ChangeLog b/ChangeLog
index 4c00484346d4dd76e67743580f2707270578ebdf..e65ae565956c75c02d61d6620d73c0130ae89e12 100644 (file)
--- 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 513477965985a6636ed3197199268cf508f93883..8996fa2739fb96b75288cc21a3aeb9317e0683e9 100644 (file)
--- 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)))