From f8db67379300cadc3881e291e5958cd1ce91d0b5 Mon Sep 17 00:00:00 2001
From: fred <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<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 ())
{
--
2.39.5