* The grand 2005-2006 replace.

[lilypond.git] / lily / output-property-music-iterator.cc

diff --git a/lily/output-property-music-iterator.cc b/lily/output-property-music-iterator.cc
index e1cd1618a6d804b48ff89031560d8d5ab4590427..feffeedd2f61cf6b8e2ec2cdf85c898207558491 100644 (file)
--- a/lily/output-property-music-iterator.cc
+++ b/lily/output-property-music-iterator.cc
@@ -3,20 +3,22 @@
   
   source file of the GNU LilyPond music typesetter
   
-  (c) 2000--2003 Jan Nieuwenhuizen <janneke@gnu.org>
+  (c) 2000--2006 Jan Nieuwenhuizen <janneke@gnu.org>
  */
 
 #include "input.hh"
-#include "music-list.hh"
-#include "output-property-music-iterator.hh"
+#include "simple-music-iterator.hh"
+#include "music.hh"
 
+class Output_property_music_iterator : public Simple_music_iterator
+{
+public:  
+  DECLARE_SCHEME_CALLBACK (constructor, ());
+protected:
+  virtual void process (Moment);
+};
 
-/*
-  Huh.
 
-  Why do we need this?
-  
- */
 void
 Output_property_music_iterator::process (Moment m)
 {
@@ -24,11 +26,10 @@ Output_property_music_iterator::process (Moment m)
     {
       bool accepted = try_music (get_music ());
       if (!accepted)
-       get_music ()->origin ()->warning (_f ("Junking event: `%s'",
-                                         classname (get_music ())));
+       get_music ()->origin ()->warning (_f ("junking event: `%s'",
+                                             get_music ()->class_name ()));
     }
-
-  skip (m);
+  Simple_music_iterator::process (m);
 }
 
 IMPLEMENT_CTOR_CALLBACK (Output_property_music_iterator);