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

[lilypond.git] / lily / mensural-ligature.cc

diff --git a/lily/mensural-ligature.cc b/lily/mensural-ligature.cc
index c0eb732a871365125bfa09f45aaecf3b68d64720..545018dc59a13c80a66196da6a6431475a296278 100644 (file)
--- a/lily/mensural-ligature.cc
+++ b/lily/mensural-ligature.cc
@@ -136,7 +136,7 @@ internal_brew_primitive (Grob *me, bool ledger_take_space)
     }
 
   Stencil out;
-  int primitive = gh_scm2int (primitive_scm);
+  int primitive = ly_scm2int (primitive_scm);
   int delta_pitch = 0;
   Real thickness = 0.0;
   Real flexa_width = 0.0;
@@ -188,7 +188,7 @@ internal_brew_primitive (Grob *me, bool ledger_take_space)
   SCM join_left_scm = me->get_property ("join-left-amount");
   if (join_left_scm != SCM_EOL)
     {
-      int join_left = gh_scm2int (join_left_scm);
+      int join_left = ly_scm2int (join_left_scm);
       if (!join_left)
        programming_error (_f ("Mensural_ligature: (join_left == 0)"));
       Real blotdiameter = (me->get_paper ()->get_dimension (ly_symbol2scm ("blotdiameter")));