]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/tie-specification.cc
Issue 3687 (part 2): Amend docs to use \compressMMRests
[lilypond.git] / lily / tie-specification.cc
index 3a7ce345cb425ec45d8fc5a326b3f6366d3e6525..0ccf2c5beb3298e44e0f1d5e3e0814ed8ee029b6 100644 (file)
@@ -13,13 +13,12 @@ Tie_specification::Tie_specification ()
   position_ = 0;
   manual_position_ = 0;
   manual_dir_ = CENTER;
-  note_head_drul_[LEFT] =
-    note_head_drul_[RIGHT] = 0;
-  column_ranks_[RIGHT] =
-    column_ranks_[LEFT] = 0;
+  note_head_drul_[LEFT]
+    note_head_drul_[RIGHT] = 0;
+  column_ranks_[RIGHT]
+    column_ranks_[LEFT] = 0;
 }
 
-
 void
 Tie_specification::from_grob (Grob *tie)
 {
@@ -29,12 +28,12 @@ Tie_specification::from_grob (Grob *tie)
       manual_dir_ = to_dir (tie->get_property ("direction"));
       has_manual_dir_ = true;
     }
-  
+
   position_ = Tie::get_position (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;
     }