+LY_DEFINE (ly_context_grob_definition, "ly:context-grob-definition",
+ 2, 0, 0, (SCM context, SCM name),
+ "Return the definition of @var{name} (a symbol) within"
+ " @var{context} as an alist.")
+{
+ Context *tr = unsmob_context (context);
+
+ LY_ASSERT_SMOB (Context, context, 1);
+ LY_ASSERT_TYPE (ly_is_symbol, name, 2);
+
+ return updated_grob_properties (tr, name);
+}