Cleans the selector of "reduced hole" noteheads.

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

diff --git a/lily/note-head.cc b/lily/note-head.cc
index 0ddba1fe1390353140eda215e1f833b609d7c1a1..de22c1c8cd3960b829e1b04e10b607de7415ae20 100644 (file)
--- a/lily/note-head.cc
+++ b/lily/note-head.cc
@@ -67,10 +67,10 @@ internal_print (Grob *me, string *font_char)
     }
 
   out = fm->find_by_name (idx_either + "r" + suffix);
-  if (!out.is_empty () && scm_is_false (
-                            scm_zero_p (
-                              scm_modulo (me->get_property ("staff-position"),
-                                          scm_from_int (2)))))
+  if (!out.is_empty ()
+        && !Staff_symbol_referencer::on_line
+             (me,
+              robust_scm2int (me->get_property ("staff-position"), 0)))
       idx_either += "r";
 
   idx_either += suffix;