From: fred <fred>
Date: Wed, 27 Mar 2002 01:21:49 +0000 (+0000)
Subject: lilypond-1.5.21
X-Git-Tag: release/1.5.59~535
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=4e4d3566e1719bf1a9a5aa88a2712810dba15ed8;p=lilypond.git

lilypond-1.5.21
---

diff --git a/lily/midi-def.cc b/lily/midi-def.cc
index 40a2d065b3..a0599d107f 100644
--- a/lily/midi-def.cc
+++ b/lily/midi-def.cc
@@ -22,8 +22,20 @@ Midi_def::Midi_def ()
 int
 Midi_def::get_tempo_i (Moment one_beat_mom)
 {
-  Moment w = *unsmob_moment (scope_p_->scm_elem ("whole-in-seconds"));
-  Moment wholes_per_min = Moment (60) /w;
+  SCM wis  = ly_symbol2scm ("whole-in-seconds");
+  Moment *w = unsmob_moment (scope_p_->scm_elem (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_);
   return int (beats_per_min);
 }