]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/break-align-interface.cc
* lily/main.cc (setup_guile_env): new function. Set GC min_yields
[lilypond.git] / lily / break-align-interface.cc
index 7d377cefdd0859b99c99b3245fb82bc68847b5c5..b9232ef6fa9b8647d44e5a471ae60e0a051b971f 100644 (file)
@@ -36,7 +36,7 @@ Break_align_interface::alignment_callback (SCM element_smob, SCM axis)
       Break_align_interface::do_alignment (par);
     }
 
-  return scm_make_real (0);
+  return scm_from_double (0);
 }
 
 MAKE_SCHEME_CALLBACK (Break_align_interface, self_align_callback, 2);
@@ -51,7 +51,7 @@ Break_align_interface::self_align_callback (SCM element_smob, SCM axis)
   Direction bsd = item->break_status_dir ();
   if (bsd == LEFT)
     {
-      me->set_property ("self-alignment-X", scm_int2num (RIGHT));
+      me->set_property ("self-alignment-X", scm_from_int (RIGHT));
     }
 
   /*
@@ -80,7 +80,7 @@ Break_align_interface::ordered_elements (Grob *grob)
 
   Link_array<Grob> writable_elts (elts);
   SCM order = scm_vector_ref (order_vec,
-                             scm_int2num (me->break_status_dir () + 1));
+                             scm_from_int (me->break_status_dir () + 1));
 
   /*
     Copy in order specified in BREAK-ALIGN-ORDER.