- Translator * me = (Translator*) SCM_CELL_WORD_1 (sm);
- scm_gc_mark (me->simple_trans_list_);
- scm_gc_mark (me->trans_group_list_);
- scm_gc_mark (me->definition_);
- scm_gc_mark (me->properties_scm_);
-
- return me->properties_scm_;
-}
-
-LY_DEFINE(ly_translator_name,
- "ly-translator-name", 1,0,0, (SCM trans),
- "Return the type name of the translator @var{trans}.
-")
-{
- Translator* tr = unsmob_translator (trans);
- SCM_ASSERT_TYPE(tr, trans, SCM_ARG1, __FUNCTION__, "Context");
-
- char const* nm = classname (tr);
- return ly_str02scm (nm);
-}
-
-LY_DEFINE(ly_translator_description,
- "ly-translator-description",
- 1,0,0, (SCM me),
- "Return an alist of properties of translator @var{me}.")
-{
- Translator *tr =unsmob_translator (me);
- SCM_ASSERT_TYPE (tr, me, SCM_ARG1, __FUNCTION__, "Context");
-
- return tr->translator_description ();