release commit

[lilypond.git] / lily / figured-bass-engraver.cc

diff --git a/lily/figured-bass-engraver.cc b/lily/figured-bass-engraver.cc
index b4f2cd98ea62f86647eb9c63e8baa78c3d42b5d6..b72b0b91e45f83da4a1a5d0a995ac59bbdb8009d 100644 (file)
--- a/lily/figured-bass-engraver.cc
+++ b/lily/figured-bass-engraver.cc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 2002--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 2002--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
 */
 
 #include "engraver.hh"
@@ -11,6 +11,8 @@
 #include "item.hh"
 #include "context.hh"
 
+#include "translator.icc"
+
 class Figured_bass_engraver : public Engraver
 {
   TRANSLATOR_DECLARATIONS (Figured_bass_engraver);
@@ -21,8 +23,8 @@ protected:
   Grob *figure_;
 
   virtual bool try_music (Music *);
-  virtual void stop_translation_timestep ();
-  virtual void process_music ();
+  void stop_translation_timestep ();
+  void process_music ();
 };
 
 Figured_bass_engraver::Figured_bass_engraver ()
@@ -67,7 +69,7 @@ Figured_bass_engraver::process_music ()
   else if (figures_.size ())
     {
       SCM proc = get_property ("bassFigureFormatFunction");
-      if (ly_c_procedure_p (proc))
+      if (ly_is_procedure (proc))
        {
          SCM l = SCM_EOL;
          SCM *t = &l;
@@ -84,9 +86,8 @@ Figured_bass_engraver::process_music ()
 }
 
 ADD_TRANSLATOR (Figured_bass_engraver,
-               /* descr */ "Make figured bass numbers.",
-               /* creats*/ "BassFigure",
-               /* accepts */ "rest-event bass-figure-event",
-               /* acks  */ "",
-               /* reads */ "bassFigureFormatFunction",
+               /* doc */ "Make figured bass numbers.",
+               /* create */ "BassFigure",
+               /* accept */ "rest-event bass-figure-event",
+               /* read */ "bassFigureFormatFunction",
                /* write */ "");