-LY_DEFINE(ly_get_context_property,
- "ly-get-context-property", 2, 0, 0,
- (SCM context, SCM name),
- "retrieve the value of @var{sym} from context @var{tr}")
-{
- 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");