+#include "grob-properties.hh"
+
+LY_DEFINE (ly_context_current_moment,
+ "ly:context-current-moment",
+ 1, 0, 0, (SCM context),
+ "Return the current moment of @var{context}.")
+{
+ Context *tr = Context::unsmob (context);
+
+ LY_ASSERT_SMOB (Context, context, 1);
+
+ return tr->now_mom ().smobbed_copy ();
+}