From: fred <fred>
Date: Tue, 26 Mar 2002 23:22:50 +0000 (+0000)
Subject: lilypond-1.3.59
X-Git-Tag: release/1.5.59~1588
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c2a93f37aa9fe3fba067581bc9848f7f5d961614;p=lilypond.git

lilypond-1.3.59
---

diff --git a/lily/tuplet-engraver.cc b/lily/tuplet-engraver.cc
index b5f224b51c..355cb64c09 100644
--- a/lily/tuplet-engraver.cc
+++ b/lily/tuplet-engraver.cc
@@ -51,8 +51,8 @@ Tuplet_engraver::do_try_music (Music *r)
 	  stop_moments_.push (m);
 
 	  SCM s = get_property ("tupletSpannerDuration");
-	  if (SMOB_IS_TYPE_B(Moment, s))
-	    m = m <? (now_mom () + *SMOB_TO_TYPE(Moment,s));
+	  if (unsmob_moment(s))
+	    m = m <? (now_mom () + *unsmob_moment (s));
 	  
 	  span_stop_moments_.push (m);
 	}
@@ -116,8 +116,8 @@ Tuplet_engraver::do_post_move_processing ()
 
   Moment tsd;
   SCM s = get_property ("tupletSpannerDuration");
-  if (SMOB_IS_TYPE_B(Moment, s))
-    tsd = *SMOB_TO_TYPE(Moment,s);
+  if (unsmob_moment (s))
+    tsd = *unsmob_moment (s);
 
   for (int i= started_span_p_arr_.size (); i--; )
     {