* lily/include/lily-guile.hh: many new ly_ functions. Thanks to

[lilypond.git] / lily / item.cc

diff --git a/lily/item.cc b/lily/item.cc
index 635ea2f1f52304446b660276b3d76490f5f49e51..df6e7068b0d2b0024b6376cd92a9549a769b8e3e 100644 (file)
--- a/lily/item.cc
+++ b/lily/item.cc
@@ -153,12 +153,12 @@ Item::handle_prebroken_dependencies ()
     more complicated things.
   */
   SCM vis = get_property ("break-visibility");
-  if (gh_procedure_p (vis))
+  if (ly_procedure_p (vis))
     {
-      SCM args = scm_list_n (gh_int2scm (break_status_dir ()), SCM_UNDEFINED);
-      SCM result = gh_apply (vis, args);
-      bool trans = gh_scm2bool (ly_car (result));
-      bool empty = gh_scm2bool (ly_cdr (result));
+      SCM args = scm_list_n (scm_int2num (break_status_dir ()), SCM_UNDEFINED);
+      SCM result = scm_apply_0 (vis, args);
+      bool trans = ly_scm2bool (ly_car (result));
+      bool empty = ly_scm2bool (ly_cdr (result));
       
       if (empty && trans)
        suicide ();