]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/staff-symbol.cc
* lily/include/lily-guile.hh: many new ly_ functions. Thanks to
[lilypond.git] / lily / staff-symbol.cc
index 744beabe602243af8d8ab39ede3fb835b61a33a5..e8242d83fc0c5687e100f33531450dd8ccaffdd7 100644 (file)
@@ -42,14 +42,14 @@ Staff_symbol::print (SCM smob)
   do
     {
       SCM width_scm = me->get_property ("width");
-      if (d == RIGHT && gh_number_p (width_scm))
+      if (d == RIGHT && ly_number_p (width_scm))
        {
          /*
            don't multiply by Staff_symbol_referencer::staff_space (me),
            since that would make aligning staff symbols of different sizes to
            one right margin hell.
          */      
-         span_points[RIGHT] = gh_scm2double (width_scm);
+         span_points[RIGHT] = ly_scm2double (width_scm);
        }
       else
        {
@@ -95,8 +95,8 @@ int
 Staff_symbol::line_count (Grob*me) 
 {
   SCM c = me->get_property ("line-count");
-  if (gh_number_p (c))
-    return gh_scm2int (c);
+  if (ly_number_p (c))
+    return ly_scm2int (c);
   else
     return 0;
 }