From: fred <fred>
Date: Tue, 26 Mar 2002 23:25:05 +0000 (+0000)
Subject: lilypond-1.3.74
X-Git-Tag: release/1.5.59~1462
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f8db67379300cadc3881e291e5958cd1ce91d0b5;p=lilypond.git

lilypond-1.3.74
---

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 ())
 	    {