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

[lilypond.git] / lily / phrasing-slur-engraver.cc

diff --git a/lily/phrasing-slur-engraver.cc b/lily/phrasing-slur-engraver.cc
index f6779595e28d6881cfd81065045e31a27cb48d54..eb4f883596e95da59a9d16a6a900c587cb420dc8 100644 (file)
--- a/lily/phrasing-slur-engraver.cc
+++ b/lily/phrasing-slur-engraver.cc
@@ -138,7 +138,7 @@ Phrasing_slur_engraver::process_acknowledged_grobs ()
 
          if (Direction updown = to_dir (phrasing_slur_ev->get_property ("direction")))
            {
-             phrasing_slur->set_property ("direction", gh_int2scm (updown));
+             phrasing_slur->set_property ("direction", scm_int2num (updown));
            }
 
          start_phrasing_slurs.push (phrasing_slur);