]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/staff-collecting-engraver.cc
*** empty log message ***
[lilypond.git] / lily / staff-collecting-engraver.cc
index 553e0a2d7556902299c941c7288a7a440be1d879..de3e1fda41ae9fbd748bed8406932115b7b4cb9e 100644 (file)
@@ -15,7 +15,7 @@ source file of the GNU LilyPond music typesetter
 class Staff_collecting_engraver : public Engraver
 {
 public:
-  TRANSLATOR_DECLARATIONS(Staff_collecting_engraver);
+  TRANSLATOR_DECLARATIONS (Staff_collecting_engraver);
   virtual void acknowledge_grob (Grob_info);
 };
 
@@ -30,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_context_->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*/       "",