* lily/include/lily-guile.hh: many new ly_ functions. Thanks to

[lilypond.git] / lily / script.cc

diff --git a/lily/script.cc b/lily/script.cc
index a63c1d2011b5628f4e3f07e55cd91814bc5ed972..95af0e32dcb2fabf63092557a54e7a8025852980 100644 (file)
--- a/lily/script.cc
+++ b/lily/script.cc
@@ -23,14 +23,14 @@ Stencil
 Script_interface::get_stencil (Grob * me, Direction d)
 {
   SCM s = me->get_property ("script-stencil");
-  assert (gh_pair_p (s));
+  assert (ly_pair_p (s));
 
   SCM key = ly_car (s);
   if (key == ly_symbol2scm ("feta"))
     {
       SCM name_entry = ly_cdr (s);
 
-      SCM str = (gh_pair_p (name_entry)) ? index_get_cell (name_entry, d) :  name_entry;
+      SCM str = (ly_pair_p (name_entry)) ? index_get_cell (name_entry, d) :  name_entry;
       return Font_interface::get_default_font (me)->find_by_name ("scripts-" +
                                                                  ly_scm2string (str));
     }