From a84b4ee40994576699e6d9705922d5a2c0ce64d1 Mon Sep 17 00:00:00 2001 From: hanwen Date: Mon, 9 Feb 2004 12:25:02 +0000 Subject: [PATCH] (determine-split-list): robustness fix --- ChangeLog | 2 ++ scm/part-combiner.scm | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 4c00484346..e65ae56595 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,7 @@ 2004-02-09 Han-Wen Nienhuys + * 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))) -- 2.39.5