release: 1.3.0

[lilypond.git] / lily / grace-position-performer.cc

diff --git a/lily/grace-position-performer.cc b/lily/grace-position-performer.cc
index 41cee8065e7f9213928415ff1ea17b60a6d2ccca..58bdd73d6f9bb2f39a02d5843a52fa62433faa05 100644 (file)
--- a/lily/grace-position-performer.cc
+++ b/lily/grace-position-performer.cc
@@ -61,9 +61,9 @@ Grace_position_performer::process_acknowledged ()
            shortest_mom = shortest_mom <? notes_[i]->length_mom_;
          
          Rational grace_fraction_rat (1, 2);
-         Scalar prop = get_property ("graceFraction", 0);
-         if (prop.length_i ())
-           grace_fraction_rat = prop.to_rat ();
+         SCM prop = get_property ("graceFraction", 0);
+         if (SMOB_IS_TYPE_B(Moment, prop))
+           grace_fraction_rat = *SMOB_TO_TYPE (Moment,prop);
 
          delay_mom = shortest_mom * grace_fraction_rat;
          for (int i=0; i < notes_.size (); i++)