+ name = gh_cdr (name);
+ SCM accept_list = scm_hashq_ref (tab, name, SCM_UNDEFINED);
+ if (accept_list == SCM_BOOL_F)
+ {
+ accept_list = find_accept_translators (simple_trans_list_,
+ m->get_mus_property ("types"));
+ scm_hashq_set_x (tab, name, accept_list);
+ }
+
+ for (SCM p = accept_list; gh_pair_p (p); p = ly_cdr (p))
+ {
+ Translator * t = unsmob_translator (ly_car (p));
+ if (t && t->try_music (m))
+ return true;
+ }
+ return false;
+}
+
+SCM
+Translator_group::properties_as_alist () const
+{
+ return properties_dict()->to_alist();
+}
+
+String
+Translator_group::context_name () const
+{
+ Translator_def * td = unsmob_translator_def (definition_ );
+ return ly_symbol2string (td->type_name_);