- Moment wholes_per_min = Moment(60) /Moment(whole_in_seconds_mom_);
- int beats_per_min = wholes_per_min / one_beat_mom;
+ SCM wis = ly_symbol2scm ("whole-in-seconds");
+ Moment *w = unsmob_moment (variable_tab_->get (wis));
+
+ Moment wholes_per_min = Moment (60);
+ if (!w)
+ {
+ programming_error ("wholes-in-seconds not set.");
+ wholes_per_min /= 4;
+ }
+ else
+ {
+ wholes_per_min /= *w;
+ }
+
+ int beats_per_min = int ((wholes_per_min / one_beat_mom).main_part_);