From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 13 Sep 2002 21:47:30 +0000 (+0000)
Subject: (skip): call quit()
X-Git-Tag: release/1.6.3~14
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=dd3e530f5830d331f429fc10b750ac4a8323e995;p=lilypond.git

(skip): call quit()
when an iterator exits early.
---

diff --git a/ChangeLog b/ChangeLog
index 1689e41a70..6db48f4a9a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-13  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
+
+	* lily/simultaneous-music-iterator.cc (skip): call quit()
+	when an iterator exits early.
+
 2002-09-13  Juergen Reuter  <reuter@ipd.uka.de>
 
 	* lily/rests.ly: added comment on bogus warnings about missing flags
diff --git a/lily/simultaneous-music-iterator.cc b/lily/simultaneous-music-iterator.cc
index bb9e9c3489..692ceb4d56 100644
--- a/lily/simultaneous-music-iterator.cc
+++ b/lily/simultaneous-music-iterator.cc
@@ -108,6 +108,7 @@ Simultaneous_music_iterator::process (Moment until)
 	}
       if (!i->ok ())
 	{
+	  i->quit ();
 	  *proc = gh_cdr (*proc);
 	}
       else
@@ -130,6 +131,7 @@ Simultaneous_music_iterator::skip (Moment until)
 	}
       if (!i->ok ())
 	{
+	  i->quit ();
 	  *proc = gh_cdr (*proc);
 	}
       else