Doc-es: update Notation/Ancient.

[lilypond.git] / lily / translator.cc

diff --git a/lily/translator.cc b/lily/translator.cc
index 87fc0a15a471104e482395b358b9049640c448a1..370f7771c0dcf2a95148ee964b97f4ccd00eb284 100644 (file)
--- a/lily/translator.cc
+++ b/lily/translator.cc
@@ -189,7 +189,7 @@ Translator::static_translator_description (const char *grobs,
   SMOBS
 */
 SCM
-Translator::mark_smob ()
+Translator::mark_smob () const
 {
   derived_mark ();
   return SCM_EOL;
@@ -221,7 +221,7 @@ Translator::derived_mark () const
 }
 
 int
-Translator::print_smob (SCM port, scm_print_state *)
+Translator::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Translator ", port);
   scm_puts (class_name (), port);
@@ -263,7 +263,7 @@ generic_get_acknowledger (SCM sym, vector<Acknowledge_information> const *ack_ar
 Moment
 get_event_length (Stream_event *e)
 {
-  Moment *m = Moment::unsmob (e->get_property ("length"));
+  Moment *m = unsmob<Moment> (e->get_property ("length"));
   if (m)
     return *m;
   else