X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fglobal-context.cc;h=f31a1283afa7fe1e4862736bf07630d503ff4172;hb=98f5cb86133b03c2c4739cab384d48021e5d11df;hp=f4aff0398eeaa977015b2142e212c88985aa7fa8;hpb=c18136b37579d2c29c42159cdb50be3d2481d0b2;p=lilypond.git

diff --git a/lily/global-context.cc b/lily/global-context.cc
index f4aff0398e..f31a1283af 100644
--- a/lily/global-context.cc
+++ b/lily/global-context.cc
@@ -196,3 +196,9 @@ Global_context::get_default_interpreter ()
   else
     return Context::get_default_interpreter ();
 }
+
+Global_context *
+unsmob_global_context (SCM x)
+{
+  return dynamic_cast<Global_context *> (unsmob_context (x));
+}