* lily/include/lily-guile.hh: is_x -> ly_c_X_p naming.

[lilypond.git] / lily / bar-line.cc

diff --git a/lily/bar-line.cc b/lily/bar-line.cc
index 6f51478f337f57c6210b839d9d5ac7ec550c1d50..716c776d7279b396d9d89bd36f6f391ddee90adb 100644 (file)
--- a/lily/bar-line.cc
+++ b/lily/bar-line.cc
@@ -186,7 +186,7 @@ Bar_line::get_staff_bar_size (SCM smob)
   Grob*me = unsmob_grob (smob);
   Real ss = Staff_symbol_referencer::staff_space (me);
   SCM size = me->get_property ("bar-size");
-  if (is_number (size))
+  if (ly_c_number_p (size))
     return scm_make_real (ly_scm2double (size)*ss);
   else if (Staff_symbol_referencer::get_staff_symbol (me))
     {