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

[lilypond.git] / lily / hyphen-spanner.cc

diff --git a/lily/hyphen-spanner.cc b/lily/hyphen-spanner.cc
index 8334e494cc62a4caef7ac734dd133a68b3405443..17b01dad53193d0ac68d837dc3bff768c5ac80eb 100644 (file)
--- a/lily/hyphen-spanner.cc
+++ b/lily/hyphen-spanner.cc
@@ -43,13 +43,13 @@ Hyphen_spanner::brew_molecule (SCM smob)
   while (flip (&d) != LEFT);
   
   Real lt = sp->get_paper ()->get_realvar (ly_symbol2scm ("linethickness"));
-  Real th = gh_scm2double (sp->get_grob_property ("thickness")) * lt ;
-  Real h = gh_scm2double (sp->get_grob_property ("height"));
+  Real th = robust_scm2double (sp->get_grob_property ("thickness"), 1) * lt ;
+  Real h = robust_scm2double (sp->get_grob_property ("height"), 0.5);
 
   // interval?
   
-  Real dp = gh_scm2double (sp->get_grob_property ("dash-period"));
-  Real dl = gh_scm2double (sp->get_grob_property ("length"));
+  Real dp = robust_scm2double (sp->get_grob_property ("dash-period"), 1.0);
+  Real dl = robust_scm2double (sp->get_grob_property ("length"), .5 );
 
   if (dp < dl)
     dp = 1.5 * dl;