*** empty log message ***

[lilypond.git] / lily / line-interface.cc

diff --git a/lily/line-interface.cc b/lily/line-interface.cc
index 33c0f3820915485e9f06f8330aab3eb1490386d6..6ee25751961fe8c59c29333f88c97a89ecc82725 100644 (file)
--- a/lily/line-interface.cc
+++ b/lily/line-interface.cc
@@ -8,13 +8,11 @@ source file of the GNU LilyPond music typesetter
  */
 
 #include "line-interface.hh"
-#include "stencil.hh"
-#include "grob.hh"
+
 #include "staff-symbol-referencer.hh"
 #include "lookup.hh"
 #include "output-def.hh"
 
-
 Stencil
 Line_interface::make_dashed_line (Real thick, Offset from, Offset to,
                             Real dash_period, Real dash_fraction)
@@ -73,7 +71,7 @@ Line_interface::line (Grob *me, Offset from, Offset to)
   SCM type = me->get_property ("style");
 
   SCM dash_fraction = me->get_property ("dash-fraction");
-  if (ly_c_number_p (dash_fraction) || type == ly_symbol2scm ("dotted-line"))
+  if (scm_is_number (dash_fraction) || type == ly_symbol2scm ("dotted-line"))
     {
       
       Real fraction