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

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

diff --git a/lily/clef-engraver.cc b/lily/clef-engraver.cc
index 4be3bb35cef30de25b5754684cf5aa2f6d4f048e..eba9b464208dfd0b04e485b72ab7efa4e191337f 100644 (file)
--- a/lily/clef-engraver.cc
+++ b/lily/clef-engraver.cc
@@ -102,7 +102,7 @@ Clef_engraver::create_clef ()
          int dir = sign (abs_oct);
          abs_oct = abs (abs_oct) + 1;
 
-         SCM txt = scm_number_to_string (scm_int2num (abs_oct),
+         SCM txt = scm_number_to_string (scm_from_int (abs_oct),
                                          scm_from_int (10));
 
          g->set_property ("text",
@@ -112,7 +112,7 @@ Clef_engraver::create_clef ()
 
          g->set_parent (clef_, Y_AXIS);
          g->set_parent (clef_, X_AXIS);
-         g->set_property ("direction", scm_int2num (dir));
+         g->set_property ("direction", scm_from_int (dir));
          octavate_ = g;
        }
     }