(The Lyrics context): add note

[lilypond.git] / lily / output-property-engraver.cc

diff --git a/lily/output-property-engraver.cc b/lily/output-property-engraver.cc
index ebe2c477717f7f52fab76883d38dd14f45998571..c7a6759220f2d97511853569461f10554dbc854f 100644 (file)
--- a/lily/output-property-engraver.cc
+++ b/lily/output-property-engraver.cc
@@ -45,7 +45,7 @@ Output_property_engraver::acknowledge_grob (Grob_info inf)
 
 
 
-      if (gh_procedure_p (pred))
+      if (is_procedure (pred))
        {
          /*
            should typecheck pred. 
@@ -64,13 +64,13 @@ Output_property_engraver::acknowledge_grob (Grob_info inf)
            dynamic_cast<Context *> (inf.origin_trans_);
 
          if (!d)
-           d = dynamic_cast<Context *> (inf.origin_trans_->daddy_context_);
+           d = dynamic_cast<Context *> (inf.origin_trans_->get_parent_context ());
          
          SCM proc = o->get_property ("procedure");
          scm_call_3 (proc,
                      inf.grob_->self_scm (),
                      d->self_scm (), 
-                     daddy_context_->self_scm ());
+                     get_parent_context ()->self_scm ());
        }
     }
 }