* lily/main.cc (main_with_guile): call lilypond-main

[lilypond.git] / lily / script.cc

diff --git a/lily/script.cc b/lily/script.cc
index 95af0e32dcb2fabf63092557a54e7a8025852980..3d16fc7f5c5b3225e09c46045a80d858b8738848 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 (ly_pair_p (s));
+  assert (is_pair (s));
 
   SCM key = ly_car (s);
   if (key == ly_symbol2scm ("feta"))
     {
       SCM name_entry = ly_cdr (s);
 
-      SCM str = (ly_pair_p (name_entry)) ? index_get_cell (name_entry, d) :  name_entry;
+      SCM str = (is_pair (name_entry)) ? index_get_cell (name_entry, d) :  name_entry;
       return Font_interface::get_default_font (me)->find_by_name ("scripts-" +
                                                                  ly_scm2string (str));
     }