balloon-text: robust with empty stencils; issue 4447

[lilypond.git] / lily / tie-specification.cc

diff --git a/lily/tie-specification.cc b/lily/tie-specification.cc
index 0413495713a8d3637db91da615aa9a855392ab65..0ccf2c5beb3298e44e0f1d5e3e0814ed8ee029b6 100644 (file)
--- a/lily/tie-specification.cc
+++ b/lily/tie-specification.cc
@@ -33,7 +33,7 @@ Tie_specification::from_grob (Grob *tie)
   SCM pos_scm = tie->get_property ("staff-position");
   if (scm_is_number (pos_scm))
     {
-      has_manual_delta_y_ = (scm_inexact_p (pos_scm) == SCM_BOOL_T);
+      has_manual_delta_y_ = !ly_is_rational (pos_scm);
       manual_position_ = scm_to_double (tie->get_property ("staff-position"));
       has_manual_position_ = true;
     }