* lily/moment.cc (robust_scm2moment): new function.

[lilypond.git] / lily / auto-beam-engraver.cc

diff --git a/lily/auto-beam-engraver.cc b/lily/auto-beam-engraver.cc
index d09e7519e8acd9b2cb24975b29557f0da954863d..2f9fa0d6935d1928db0e8c3c3b2967684b18f501 100644 (file)
--- a/lily/auto-beam-engraver.cc
+++ b/lily/auto-beam-engraver.cc
@@ -320,9 +320,10 @@ Auto_beam_engraver::begin_beam ()
   beam_settings_ = updated_grob_properties (context (), ly_symbol2scm ("Beam"));
   
   beam_start_moment_ = now_mom ();
-  beam_start_location_ = *unsmob_moment (get_property ("measurePosition"));
+  beam_start_location_ =
+    robust_scm2moment (unsmob_moment (get_property ("measurePosition"), Moment(0));
   subdivide_beams_ = ly_scm2bool (get_property ("subdivideBeams"));
-  beat_length_ = *unsmob_moment (get_property ("beatLength"));
+  beat_length_ = robust_scm2moment (get_property ("beatLength"), Moment(1,4));
 }
 
 void