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

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

diff --git a/lily/slur-engraver.cc b/lily/slur-engraver.cc
index 4a6a49305beb1a38c38d42a13e7053b10ad2b289..3fc82162276ebf9fd0b3ad20117563087675af8b 100644 (file)
--- a/lily/slur-engraver.cc
+++ b/lily/slur-engraver.cc
@@ -155,7 +155,7 @@ Slur_engraver::process_music ()
 
          if (Direction updown = to_dir (slur_ev->get_property ("direction")))
            {
-             slur->set_property ("direction", gh_int2scm (updown));
+             slur->set_property ("direction", scm_int2num (updown));
            }
          
          start_slurs.push (slur);