X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fgrace-position-performer.cc;h=58bdd73d6f9bb2f39a02d5843a52fa62433faa05;hb=3a0e9efb7f067e5b334ba0596b95e15d96d7cc49;hp=41cee8065e7f9213928415ff1ea17b60a6d2ccca;hpb=8002fa018c81f70585c25232247c6dcba7f5cba0;p=lilypond.git

diff --git a/lily/grace-position-performer.cc b/lily/grace-position-performer.cc
index 41cee8065e..58bdd73d6f 100644
--- 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++)