*** empty log message ***

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

diff --git a/lily/script-engraver.cc b/lily/script-engraver.cc
index 7505792801485d1d7b51f75f504a9fdc538315a3..05e59f2dd0598eac07c5bac829cbfd212e4783eb 100644 (file)
--- a/lily/script-engraver.cc
+++ b/lily/script-engraver.cc
@@ -42,10 +42,10 @@ protected:
   void stop_translation_timestep ();
   void process_music ();
 
-  DECLARE_ACKNOWLEDGER( slur);
-  DECLARE_ACKNOWLEDGER( rhythmic_head);
-  DECLARE_ACKNOWLEDGER( stem);
-  DECLARE_ACKNOWLEDGER( note_column);
+  DECLARE_ACKNOWLEDGER ( slur);
+  DECLARE_ACKNOWLEDGER ( rhythmic_head);
+  DECLARE_ACKNOWLEDGER ( stem);
+  DECLARE_ACKNOWLEDGER ( note_column);
 
 public:
   TRANSLATOR_DECLARATIONS (Script_engraver);
@@ -133,7 +133,7 @@ void make_script_from_event (Grob *p, bool *follow, Context *tg,
             to the head.  */
          int prio = scm_to_int (val) + index;
 
-         val = scm_int2num (prio);
+         val = scm_from_int (prio);
        }
       if (p->internal_get_property (sym) == SCM_EOL)
        p->internal_set_property (sym, val);
@@ -142,7 +142,7 @@ void make_script_from_event (Grob *p, bool *follow, Context *tg,
   if (!priority_found)
     {
       p->set_property ("script-priority",
-                      scm_int2num (index));
+                      scm_from_int (index));
     }
 
   Side_position_interface::set_axis (p, Y_AXIS);
@@ -251,10 +251,10 @@ Script_engraver::stop_translation_timestep ()
 
 #include "translator.icc"
 
-ADD_ACKNOWLEDGER(Script_engraver, slur);
-ADD_ACKNOWLEDGER(Script_engraver, rhythmic_head);
-ADD_ACKNOWLEDGER(Script_engraver, stem);
-ADD_ACKNOWLEDGER(Script_engraver, note_column);
+ADD_ACKNOWLEDGER (Script_engraver, slur);
+ADD_ACKNOWLEDGER (Script_engraver, rhythmic_head);
+ADD_ACKNOWLEDGER (Script_engraver, stem);
+ADD_ACKNOWLEDGER (Script_engraver, note_column);
 
 ADD_TRANSLATOR (Script_engraver,
                /* descr */ "Handles note scripted articulations.",