*** empty log message ***

[lilypond.git] / lily / measure-grouping-engraver.cc

diff --git a/lily/measure-grouping-engraver.cc b/lily/measure-grouping-engraver.cc
index 3025e2621ac9dfe5b234116b13695b95855b7189..2ee9054c8138841ff05f8d2e1882f73819e0696f 100644 (file)
--- a/lily/measure-grouping-engraver.cc
+++ b/lily/measure-grouping-engraver.cc
@@ -73,11 +73,11 @@ Measure_grouping_engraver::process_music ()
        
       Rational where (0);
       for (SCM s = grouping; ly_c_pair_p (s);
-          where += Rational (ly_scm2int (ly_car (s))) * bl,
+          where += Rational (scm_to_int (ly_car (s))) * bl,
           s = ly_cdr (s)
           )
        {
-         int grouplen = ly_scm2int (ly_car (s));
+         int grouplen = scm_to_int (ly_car (s));
          if (where == mp)
            {
              if (grouping_)