X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=lily%2Fglobal-context.cc;h=f31a1283afa7fe1e4862736bf07630d503ff4172;hb=2b8c85e27b554513c6527e8a2d25b0e3d2db4b66;hp=f4aff0398eeaa977015b2142e212c88985aa7fa8;hpb=f9214bac21e9926dc3248416f58190c98c4167a9;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));
+}