X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Foutput-property-music-iterator.cc;h=5931c8806bec4b77f9259241df83686849ba158e;hb=493e670b2be12e94f6ebf57a709981bf7f452b25;hp=882d9d63e3a2bef5dfdc750b4a4190d6d533547e;hpb=94189ec2b8da6d7e89dc619c646a927adead9b19;p=lilypond.git

diff --git a/lily/output-property-music-iterator.cc b/lily/output-property-music-iterator.cc
index 882d9d63e3..5931c8806b 100644
--- a/lily/output-property-music-iterator.cc
+++ b/lily/output-property-music-iterator.cc
@@ -3,25 +3,33 @@
   
   source file of the GNU LilyPond music typesetter
   
-  (c) 2000--2001 Jan Nieuwenhuizen <janneke@gnu.org>
+  (c) 2000--2003 Jan Nieuwenhuizen <janneke@gnu.org>
  */
 
 #include "input.hh"
 #include "music-list.hh"
-#include "output-property-music-iterator.hh"
+#include "simple-music-iterator.hh"
+
+class Output_property_music_iterator : public Simple_music_iterator
+{
+public:  
+  DECLARE_SCHEME_CALLBACK(constructor, ());
+protected:
+  virtual void process (Moment);
+};
+
 
 void
 Output_property_music_iterator::process (Moment m)
 {
   if (last_processed_mom_ < Moment (0))
     {
-      bool accepted = try_music (music_l_);
+      bool accepted = try_music (get_music ());
       if (!accepted)
-	music_l_->origin ()->warning (_f ("Junking request: `%s'",
-					  classname (music_l_)));
+	get_music ()->origin ()->warning (_f ("Junking event: `%s'",
+					  classname (get_music ())));
     }
-
-  skip (m);
+  Simple_music_iterator::process (m);
 }
 
-IMPLEMENT_CTOR_CALLBACK(Output_property_music_iterator);
+IMPLEMENT_CTOR_CALLBACK (Output_property_music_iterator);