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

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

diff --git a/lily/script-engraver.cc b/lily/script-engraver.cc
index 7505792801485d1d7b51f75f504a9fdc538315a3..da86b9c1725b05525c7425a6af0a891a56e5350a 100644 (file)
--- a/lily/script-engraver.cc
+++ b/lily/script-engraver.cc
@@ -133,7 +133,7 @@ void make_script_from_event (Grob *p, bool *follow, Context *tg,
             to the head.  */
          int prio = scm_to_int (val) + index;
 
-         val = scm_int2num (prio);
+         val = scm_from_int (prio);
        }
       if (p->internal_get_property (sym) == SCM_EOL)
        p->internal_set_property (sym, val);
@@ -142,7 +142,7 @@ void make_script_from_event (Grob *p, bool *follow, Context *tg,
   if (!priority_found)
     {
       p->set_property ("script-priority",
-                      scm_int2num (index));
+                      scm_from_int (index));
     }
 
   Side_position_interface::set_axis (p, Y_AXIS);