]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/script-column.cc
* lily/main.cc (setup_guile_env): new function. Set GC min_yields
[lilypond.git] / lily / script-column.cc
index 71cfd4119acb640810be6773e8d545f9f8ec9b15..e2e7411b536b5c4cd55021167068cc40caf35ece 100644 (file)
@@ -66,7 +66,7 @@ Script_column::before_line_breaking (SCM smob)
        {
          programming_error ("no direction for script");
          d = DOWN;
-         g->set_property ("direction", scm_int2num (d));
+         g->set_property ("direction", scm_from_int (d));
        }
 
       scripts_drul[d] = scm_cons (g->self_scm (), scripts_drul[d]);