* lily/include/lily-guile.hh: many new ly_ functions. Thanks to

[lilypond.git] / lily / cluster-engraver.cc

diff --git a/lily/cluster-engraver.cc b/lily/cluster-engraver.cc
index 5ae931f3d98ce3b22dac6ea3e671c5d5d1b9c198..94cd0e6a68e85429fae8459b803e9adc21673438 100644 (file)
--- a/lily/cluster-engraver.cc
+++ b/lily/cluster-engraver.cc
@@ -82,7 +82,7 @@ Cluster_spanner_engraver::process_music ()
     {
       SCM c0scm = get_property ("middleCPosition");
 
-      int c0 =  gh_number_p (c0scm) ? gh_scm2int (c0scm) : 0;
+      int c0 =  ly_number_p (c0scm) ? ly_scm2int (c0scm) : 0;
       int pmax = INT_MIN;
       int pmin = INT_MAX;
       
@@ -98,8 +98,8 @@ Cluster_spanner_engraver::process_music ()
       
       beacon_ = make_item ("ClusterSpannerBeacon");
       beacon_->set_property ("positions",
-                                 scm_cons (gh_int2scm (pmin),
-                                           gh_int2scm (pmax)));
+                                 scm_cons (scm_int2num (pmin),
+                                           scm_int2num (pmax)));
       announce_grob (beacon_, cluster_notes_[0]->self_scm ());
     }