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

[lilypond.git] / lily / hairpin.cc

diff --git a/lily/hairpin.cc b/lily/hairpin.cc
index 66a9931df86835aa33ae3802d17af9d9fc551d2d..41e9eef5ef90e84d517ad81d7ebc4fd01b5cfe89 100644 (file)
--- a/lily/hairpin.cc
+++ b/lily/hairpin.cc
@@ -100,7 +100,7 @@ Hairpin::brew_molecule (SCM smob)
     }
 
   bool continued = broken[Direction (-grow_dir)];
-  Real height = gh_scm2double (me->get_grob_property ("height"));
+  Real height = robust_scm2double (me->get_grob_property ("height"), 0.2);
 
   Real starth, endh;
   if (grow_dir < 0)