+LY_DEFINE (ly_context_name, "ly:context-name",
+ 1, 0, 0, (SCM context),
+ "Return the name of @var{context}, "
+ "i.e. for @code{\\context Voice = one .. } "
+ "return the symbol @code{Voice}.")
+{
+ Context *tr = unsmob_context (context);
+ SCM_ASSERT_TYPE (tr, context, SCM_ARG1, __FUNCTION__, "Context");
+ return ly_symbol2scm (tr->context_name ().c_str ());
+}