* lily/lily-guile.cc (robust_scm2double): new function. Use throughout.

[lilypond.git] / lily / balloon.cc

diff --git a/lily/balloon.cc b/lily/balloon.cc
index 78938c99144d27b36a7135a03631a6b70b398565..30eb59e7c0f153c3585da093811e718d07fda465 100644 (file)
--- a/lily/balloon.cc
+++ b/lily/balloon.cc
@@ -47,12 +47,7 @@ Balloon_interface::brew_molecule (SCM smob)
   Box orig_extent = m->extent_box ();
   Box box_extent = orig_extent;
 
-  SCM widen = me->get_grob_property ("balloon-padding");
-  Real w = .1;
-  if (gh_number_p (widen))
-    {
-      w = gh_scm2double (widen);
-    }
+  Real w = robust_scm2double (me->get_grob_property ("balloon-padding"),  .1);
   box_extent.widen (w, w);