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++)