From f8db67379300cadc3881e291e5958cd1ce91d0b5 Mon Sep 17 00:00:00 2001 From: fred Date: Tue, 26 Mar 2002 23:25:05 +0000 Subject: [PATCH] lilypond-1.3.74 --- lily/grace-position-performer.cc | 4 ++-- lily/spacing-spanner.cc | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lily/grace-position-performer.cc b/lily/grace-position-performer.cc index c1c4ae8896..0259587934 100644 --- 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 d83d58e725..5ad98d494e 100644 --- a/lily/spacing-spanner.cc +++ b/lily/spacing-spanner.cc @@ -54,7 +54,7 @@ Spacing_spanner::do_measure (Score_element*me, Link_array cols) if (dynamic_cast (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