*** empty log message ***

[lilypond.git] / lily / staff-collecting-engraver.cc

diff --git a/lily/staff-collecting-engraver.cc b/lily/staff-collecting-engraver.cc
index f885cc6149a3260f1e4c2347d359d4551e76ec21..de3e1fda41ae9fbd748bed8406932115b7b4cb9e 100644 (file)
--- a/lily/staff-collecting-engraver.cc
+++ b/lily/staff-collecting-engraver.cc
@@ -3,18 +3,19 @@ staff-collecting-engraver.cc --  implement Staff_collecting_engraver
 
 source file of the GNU LilyPond music typesetter
 
-(c) 2001--2003  Han-Wen Nienhuys <hanwen@cs.uu.nl>
+(c) 2001--2004  Han-Wen Nienhuys <hanwen@cs.uu.nl>
 
  */
 #include "staff-symbol.hh"
 #include "engraver.hh"
 #include "grob.hh"
-#include "translator-group.hh"
+#include "context.hh"
+
 
 class Staff_collecting_engraver : public Engraver
 {
 public:
-  TRANSLATOR_DECLARATIONS(Staff_collecting_engraver);
+  TRANSLATOR_DECLARATIONS (Staff_collecting_engraver);
   virtual void acknowledge_grob (Grob_info);
 };
 
@@ -29,14 +30,14 @@ Staff_collecting_engraver::acknowledge_grob (Grob_info gi)
   if (Staff_symbol::has_interface (gi.grob_))
     {
       SCM staffs = get_property ("stavesFound");
-      staffs = gh_cons (gi.grob_->self_scm (), staffs);
+      staffs = scm_cons (gi.grob_->self_scm (), staffs);
 
-      daddy_trans_->set_property ("stavesFound", staffs);
+      context ()->set_property ("stavesFound", staffs);
     }
 }
 
 
-ENTER_DESCRIPTION(Staff_collecting_engraver,
+ENTER_DESCRIPTION (Staff_collecting_engraver,
 /* descr */       "Maintain the stavesFound variable",
 
 /* creats*/       "",