X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fcluster.cc;h=a6caf0a7d5b15fa9c91bd9156e2b9939b2af4b8a;hb=1753b1a73742a5b0893037116bb6f2febba277f3;hp=424e1d248bd8057cf400bd5b49d3df6ac880288b;hpb=5320f6d196dd67186178adcb6e5debdbbec8aee8;p=lilypond.git

diff --git a/lily/cluster.cc b/lily/cluster.cc
index 424e1d248b..a6caf0a7d5 100644
--- a/lily/cluster.cc
+++ b/lily/cluster.cc
@@ -180,7 +180,7 @@ Cluster::brew_molecule (SCM smob)
       SCM posns = col->get_grob_property ("positions");
       
       Slice s (0,0);
-      if (ly_number_pair_p (posns))
+      if (is_number_pair (posns))
 	s = Slice (gh_scm2int (gh_car (posns)),
 		   gh_scm2int (gh_cdr (posns)));
 
@@ -206,7 +206,7 @@ Cluster::brew_molecule (SCM smob)
 	      SCM posns = col->get_grob_property ("positions");
       
 	      Slice s (0,0);
-	      if (ly_number_pair_p (posns))
+	      if (is_number_pair (posns))
 		s = Slice (gh_scm2int (gh_car (posns)),
 			   gh_scm2int (gh_cdr (posns)));