Fix #767.

[lilypond.git] / lily / rhythmic-head.cc

diff --git a/lily/rhythmic-head.cc b/lily/rhythmic-head.cc
index 5919c9119b90e3545d8503f2804c7ce2d4ca81fa..659ba339b7be5ff29f52004cfc7a52089f787ca3 100644 (file)
--- a/lily/rhythmic-head.cc
+++ b/lily/rhythmic-head.cc
@@ -8,11 +8,11 @@
 
 #include "rhythmic-head.hh"
 
-#include "warn.hh"
+#include "item.hh"
 #include "rest.hh"
-#include "stem.hh"
 #include "staff-symbol-referencer.hh"
-#include "item.hh"
+#include "stem.hh"
+#include "warn.hh"
 
 Item *
 Rhythmic_head::get_dots (Grob *me)
@@ -32,7 +32,7 @@ int
 Rhythmic_head::dot_count (Grob *me)
 {
   return get_dots (me)
-    ? scm_to_int (get_dots (me)->get_property ("dot-count")) : 0;
+    ? robust_scm2int (get_dots (me)->get_property ("dot-count"), 0) : 0;
 }
 
 void
@@ -50,7 +50,7 @@ Rhythmic_head::duration_log (Grob *me)
 
 ADD_INTERFACE (Rhythmic_head,
               "Note head or rest.",
-              
+
               /* properties */
               "dot "
               "duration-log "