* lily/text-item.cc (interpret_string): new file, select font with

[lilypond.git] / lily / hyphen-engraver.cc

diff --git a/lily/hyphen-engraver.cc b/lily/hyphen-engraver.cc
index b1614ca9ab5f713e8a596a077d47e332c33d017d..9e87e8ecb1559f7c7816039159c5aa85929dc626 100644 (file)
--- a/lily/hyphen-engraver.cc
+++ b/lily/hyphen-engraver.cc
@@ -73,9 +73,9 @@ completize_hyphen (Spanner* sp)
   if (!sp->get_bound (RIGHT))
     {
       SCM heads = sp->get_property ("heads");
-      if (gh_pair_p (heads))
+      if (is_pair (heads))
        {
-         Item* it = dynamic_cast<Item*> (unsmob_grob (gh_car (heads)));
+         Item* it = dynamic_cast<Item*> (unsmob_grob (ly_car (heads)));
          if (it)
            sp->set_bound (RIGHT, it);
        }