* lily/tuplet-bracket.cc (brew_molecule): don't crash on broken

[lilypond.git] / lily / beam.cc

diff --git a/lily/beam.cc b/lily/beam.cc
index 56774c1b5a6b841c9fe479f361d8baef5869fe3f..3b76c373b96178950c25993a77d275764ecdc75f 100644 (file)
--- a/lily/beam.cc
+++ b/lily/beam.cc
@@ -70,8 +70,11 @@ Beam::add_stem (Grob *me, Grob *s)
 Real
 Beam::get_thickness (Grob * me)
 {
-  return gh_scm2double (me->get_grob_property ("thickness"))
-    *  Staff_symbol_referencer::staff_space (me);
+  SCM th = me->get_grob_property ("thickness");
+  if (gh_number_p (th))
+    return gh_scm2double (th)* Staff_symbol_referencer::staff_space (me);
+  else
+    return 0.0;
 }
 
 /* Return the translation between 2 adjoining beams. */