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

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

diff --git a/lily/timing-engraver.cc b/lily/timing-engraver.cc
index 78b56d44a927c5486dd328352fa8c35ef3fd04ec..0a500dd86979c2c3220463e3b34836c3f92c2d05 100644 (file)
--- a/lily/timing-engraver.cc
+++ b/lily/timing-engraver.cc
@@ -45,7 +45,7 @@ Timing_engraver::initialize ()
   Moment now = now_mom ();
   
   /* Set the first bar of the score? */
-  if (!gh_string_p (which))
+  if (!ly_string_p (which))
     which = (now.main_part_ || now.main_part_ == last_moment_.main_part_)
       ? SCM_EOL : scm_makfrom0str ("|");
 
@@ -63,7 +63,7 @@ Timing_engraver::start_translation_timestep ()
   SCM which = get_property ("whichBar");
 
   /* Set the first bar of the score? */
-  if (!gh_string_p (which))
+  if (!ly_string_p (which))
     which = SCM_EOL;
 
   Moment mp = measure_position ();
@@ -77,7 +77,7 @@ Timing_engraver::start_translation_timestep ()
        ->set_property ("measure-length", mlen.smobbed_copy ()); 
     }
   
-  if (!gh_string_p (which) && to_boolean (automatic_bars))
+  if (!ly_string_p (which) && to_boolean (automatic_bars))
     {
       SCM always = get_property ("barAlways");