-MAKE_SCHEME_CALLBACK(Translator,name,1);
-SCM
-Translator::name (SCM trans)
-{
- if (unsmob_translator (trans))
- {
- char const* nm = classname (unsmob_translator (trans));
- return ly_str02scm (nm);
- }
- return
- SCM_EOL;
-}
-
-MAKE_SCHEME_CALLBACK(Translator,description,1)
-SCM
-Translator::description (SCM me)
-{
- if (unsmob_translator (me))
- return unsmob_translator(me)->translator_description ();
- else
- {
- programming_error ("Translator::description ()");
- return SCM_EOL;
- }
-}
-