]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/slur.cc
* lily/beam.cc (set_minimum_dy): new function. Round non-zero
[lilypond.git] / lily / slur.cc
index af479083e9cf5765c2ce9a1e832e7a6e1b384c22..725922bf613789e24cf0a3d2c2f2b36b7c8e0d39 100644 (file)
@@ -71,7 +71,7 @@ Slur::print (SCM smob)
     TODO: replace dashed with generic property.
   */
   SCM d =  me->get_property ("dashed");
-  if (ly_c_number_p (d))
+  if (scm_is_number (d))
     a = Lookup::dashed_slur (one, thick, thick * robust_scm2double (d, 0));
   else
     a = Lookup::slur (one, get_grob_direction (me) * base_thick * ss / 10.0,
@@ -81,7 +81,7 @@ Slur::print (SCM smob)
   SCM quant_score = me->get_property ("quant-score");
 
   if (to_boolean (me->get_paper ()
-                 ->lookup_variable (ly_symbol2scm ("debug-slur-quanting")))
+                 ->lookup_variable (ly_symbol2scm ("debug-slur-scoring")))
       && scm_is_string (quant_score))
     {
       String str;