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

[lilypond.git] / lily / accidental-placement.cc

diff --git a/lily/accidental-placement.cc b/lily/accidental-placement.cc
index 43055409cb0ad2d4eb339edab2289534ff59bc1e..92c7e98c994693185975ec968c84c30c8e7b1d10 100644 (file)
--- a/lily/accidental-placement.cc
+++ b/lily/accidental-placement.cc
@@ -32,7 +32,7 @@ Accidental_placement::alignment_callback (SCM s, SCM)
       position_accidentals (par);
     }
 
-  return scm_int2num (0);
+  return scm_from_int (0);
 }
 
 void
@@ -54,7 +54,7 @@ Accidental_placement::add_accidental (Grob *me, Grob *a)
   int n = p->get_notename ();
 
   SCM accs = me->get_object ("accidental-grobs");
-  SCM key = scm_int2num (n);
+  SCM key = scm_from_int (n);
   SCM entry = scm_assq (key, accs);
   if (entry == SCM_BOOL_F)
     {