lilypond-1.3.74

diff --git a/lily/grace-position-performer.cc b/lily/grace-position-performer.cc
index c1c4ae88960b0a88b992c52d053ad25ae4147272..0259587934c542151c6465d2684b17ae98a5df95 100644 (file)
--- a/lily/grace-position-performer.cc
+++ b/lily/grace-position-performer.cc
@@ -62,8 +62,8 @@ Grace_position_performer::process_acknowledged ()
          
          Rational grace_fraction_rat (1, 2);
          SCM prop = get_property ("graceFraction");
-         if (SMOB_IS_TYPE_B(Moment, prop))
-           grace_fraction_rat = *SMOB_TO_TYPE (Moment,prop);
+         if (unsmob_moment (prop))
+           grace_fraction_rat = *unsmob_moment (prop);
 
          delay_mom = shortest_mom * grace_fraction_rat;
          for (int i=0; i < notes_.size (); i++)

diff --git a/lily/spacing-spanner.cc b/lily/spacing-spanner.cc
index d83d58e725eaecfddd8b1d8642418452dee68af1..5ad98d494ecf7f6b5227e2a1e0726d2240dfbdd9 100644 (file)
--- a/lily/spacing-spanner.cc
+++ b/lily/spacing-spanner.cc
@@ -54,7 +54,7 @@ Spacing_spanner::do_measure (Score_element*me, Link_array<Score_element> cols)
       if (dynamic_cast<Paper_column*> (cols[i])->musical_b ())
        {
          SCM  st = cols[i]->get_elt_property ("shortest-starter-duration");
-         Moment this_shortest = (*SMOB_TO_TYPE(Moment, st));
+         Moment this_shortest = *unsmob_moment(st);
          shortest = shortest <? this_shortest;
          if (!mean_shortest.infty_b ())
            {