patch::: 1.3.103.jcn3: Re: LilyPond 1.3.103

[lilypond.git] / lily / grace-performer-group.cc

diff --git a/lily/grace-performer-group.cc b/lily/grace-performer-group.cc
index 004c7a4923e21fd4abc57a97b88a116ab5c68fec..4bf89fe1da896647487f99e6b7283ce1e0c120a5 100644 (file)
--- a/lily/grace-performer-group.cc
+++ b/lily/grace-performer-group.cc
@@ -3,12 +3,12 @@
   
   source file of the GNU LilyPond music playter
   
-  (c) 1999 Jan Nieuwenhuizen <janneke@gnu.org>
+  (c) 1999--2000 Jan Nieuwenhuizen <janneke@gnu.org>
   
  */
 #include "grace-performer-group.hh"
 #include "lily-guile.hh"
-#include "ly-symbols.hh"
+
 #include "audio-element.hh"
 
 ADD_THIS_TRANSLATOR (Grace_performer_group);
@@ -51,7 +51,7 @@ Grace_performer_group::announce_element (Audio_element_info info)
   // do not propagate to top
   announce_to_top_.push (info);
 
-  //inf.elem_l_->set_elt_property (grace_scm_sym, SCM_BOOL_T);
+  //inf.elem_l_->set_elt_property ("grace", SCM_BOOL_T);
   info.elem_l_->grace_b_ = true;
 }
 
@@ -71,7 +71,7 @@ void
 Grace_performer_group::process ()
 {
   calling_self_b_  = true;
-  process_requests ();
+  process_music ();
   do_announces();
   pre_move_processing();
   check_removal();
@@ -87,12 +87,7 @@ Grace_performer_group::each (Method_pointer method)
 }
 
 
-void
-Grace_performer_group::each (Const_method_pointer method) const
-{
- if (calling_self_b_)
-    Performer_group_performer::each (method);
-}
+
 
 /*
   don't let the commands trickle up.
@@ -100,12 +95,6 @@ Grace_performer_group::each (Const_method_pointer method) const
 bool
 Grace_performer_group::do_try_music (Music *m)
 {
-  bool hebbes_b =false;
-
-  Link_array<Translator> nongroups (nongroup_l_arr ());
-  
-  for (int i =0; !hebbes_b && i < nongroups.size() ; i++)
-    hebbes_b =nongroups[i]->try_music (m);
-
-  return hebbes_b;
+  return try_music_on_nongroup_children (m);
 }
+