+
+
+/*
+
+ SMOBS
+
+*/
+SCM
+Translator::mark_smob (SCM sm)
+{
+ Translator * me = (Translator*) SCM_CELL_WORD_1 (sm);
+ return me->simple_trans_list_;
+}
+
+SCM
+Translator::translator_description () const
+{
+ return SCM_EOL;
+}
+
+
+Global_context *
+Translator::get_global_context () const
+{
+ return daddy_context_ ->get_global_context ();
+}
+
+
+Score_context *
+Translator::get_score_context () const
+{
+ return daddy_context_->get_score_context ();
+}
+
+
+SCM
+Translator::static_translator_description ()const
+{
+ return SCM_EOL;
+}
+
+
+IMPLEMENT_SMOBS (Translator);
+IMPLEMENT_DEFAULT_EQUAL_P (Translator);
+IMPLEMENT_TYPE_P(Translator,"ly:translator?");