*** empty log message ***

[lilypond.git] / lily / moment.cc

diff --git a/lily/moment.cc b/lily/moment.cc
index e8c47c37e2dfa09dcd430a3d77e388f88390007d..a7d0e8ddb95d56ea9e05c2249d49d2ac62fceddc 100644 (file)
--- a/lily/moment.cc
+++ b/lily/moment.cc
@@ -76,17 +76,17 @@ LY_DEFINE (ly_make_moment, "ly:make-moment",
   if (gn != SCM_UNDEFINED)
     {
       SCM_ASSERT_TYPE (scm_is_integer (gn), gn, SCM_ARG3, __FUNCTION__, "integer");
-      grace_num = ly_scm2int (gn);
+      grace_num = scm_to_int (gn);
     }
 
   int grace_den = 1;
   if (gd != SCM_UNDEFINED)
     {
       SCM_ASSERT_TYPE (scm_is_integer (gd), gd, SCM_ARG4, __FUNCTION__, "integer");
-      grace_den = ly_scm2int (gd);
+      grace_den = scm_to_int (gd);
     }
 
-  return Moment (Rational (ly_scm2int (n), ly_scm2int (d)),
+  return Moment (Rational (scm_to_int (n), scm_to_int (d)),
                 Rational (grace_num, grace_den)).smobbed_copy ();
 }