- Translator *t = unsmob_translator (context);
- Translator_group* tr= dynamic_cast<Translator_group*> (t);
- SCM_ASSERT_TYPE(tr, context, SCM_ARG1, __FUNCTION__, "Translator group");
- SCM_ASSERT_TYPE(gh_symbol_p (name), name, SCM_ARG2, __FUNCTION__, "symbol");
-
- return tr->internal_get_property (name);
-
+ LY_ASSERT_SMOB (Translator, trans, 1);
+ Translator *tr = unsmob_translator (trans);
+ char const *nm = tr->class_name ();
+ return ly_symbol2scm (nm);