X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Ftranslator-scheme.cc;h=a24dc868346fcb95f2f5797fec108479dd6fddb1;hb=ddd59edaae68e71d5d3ea2576b3d0d25807fb500;hp=d5615dc03c5406c7c0eee2c4cf7a62a2a5fad098;hpb=e817ee7b3df9586086d7ac2689f3b6a4cc92d2d2;p=lilypond.git

diff --git a/lily/translator-scheme.cc b/lily/translator-scheme.cc
index d5615dc03c..a24dc86834 100644
--- a/lily/translator-scheme.cc
+++ b/lily/translator-scheme.cc
@@ -17,6 +17,7 @@
   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 */
 
+#include "context.hh"
 #include "context-def.hh"
 #include "translator-group.hh"
 #include "moment.hh"
@@ -41,3 +42,14 @@ LY_DEFINE (ly_translator_description, "ly:translator-description",
   return tr->translator_description ();
 }
 
+
+LY_DEFINE (ly_translator_context, "ly:translator-context",
+	   1, 0, 0, (SCM trans),
+	   "Return the context of the translator object @var{trans}.")
+{
+  LY_ASSERT_SMOB (Translator, trans, 1);
+  Translator *tr = unsmob_translator (trans);
+
+  Context *c = tr->context ();
+  return c ? c->self_scm () : SCM_BOOL_F;
+}