X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=inline;f=lily%2Fmusic-iterator.cc;h=789b2b243c87fd9dd704b482dd2bf77f8822ddd6;hb=2e3b1869076ea4ee593bac907393821b543b2872;hp=fcfd2fc1f45cfe31923730b7d957eb49b5dde9dc;hpb=9f3572d98bb948c9689cd1f75401a029451fa001;p=lilypond.git

diff --git a/lily/music-iterator.cc b/lily/music-iterator.cc
index fcfd2fc1f4..789b2b243c 100644
--- a/lily/music-iterator.cc
+++ b/lily/music-iterator.cc
@@ -3,16 +3,15 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1997--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  (c) 1997--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
 */
 
 
-#include "music-iterator.hh"
-
 #include <cstdio>
 using namespace std;
 
 #include "warn.hh"
+#include "music.hh"
 #include "context.hh"
 #include "event-iterator.hh"
 #include "input.hh"
@@ -118,7 +117,7 @@ Music_iterator::music_start_mom ()const
 }
 
 void
-Music_iterator::init_translator (Music *m, Context *report)
+Music_iterator::init_context (Music *m, Context *report)
 {
   music_ = m;
   assert (m);
@@ -145,7 +144,7 @@ Music_iterator::get_iterator (Music *m) const
   SCM ip = get_static_get_iterator (m);
   Music_iterator *p = unsmob_iterator (ip);
 
-  p->init_translator (m, get_outlet ());
+  p->init_context (m, get_outlet ());
 
   p->construct_children ();
   return ip;
@@ -165,8 +164,11 @@ Music_iterator::report_event (Music *m)
 {
   descend_to_bottom_context ();
 
+  /*
+    FIXME: then don't do it. 
+  */
   if (!m->is_mus_type ("event"))
-    m->origin ()->warning (_f ("Sending non-event to context"));
+    m->origin ()->programming_error (_ ("Sending non-event to context"));
 
   m->send_to_context (get_outlet ());
 }