* lily/main.cc (setup_guile_env): new function. Set GC min_yields

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

diff --git a/lily/cluster-engraver.cc b/lily/cluster-engraver.cc
index eff1695eb33ea68864ccc8c16d25c8fc54e1d45d..33f91adb2919aa506f2374ea2040d01e95803fa2 100644 (file)
--- a/lily/cluster-engraver.cc
+++ b/lily/cluster-engraver.cc
@@ -92,8 +92,8 @@ Cluster_spanner_engraver::process_music ()
 
       beacon_ = make_item ("ClusterSpannerBeacon", cluster_notes_[0]->self_scm ());
       beacon_->set_property ("positions",
-                            scm_cons (scm_int2num (pmin),
-                                      scm_int2num (pmax)));
+                            scm_cons (scm_from_int (pmin),
+                                      scm_from_int (pmax)));
     }
 
   if (beacon_ && !spanner_)