* scm/lily.scm (postscript->png): use ~a iso. ~s

[lilypond.git] / lily / context-scheme.cc

diff --git a/lily/context-scheme.cc b/lily/context-scheme.cc
index cbedf5ea3c484825d47fa5ae34fd57cba3aa428e..4288516f7a78fb46c967d05aa04a70ce8979443f 100644 (file)
--- a/lily/context-scheme.cc
+++ b/lily/context-scheme.cc
@@ -33,6 +33,20 @@ LY_DEFINE (ly_context_name, "ly:context-name",
   return ly_symbol2scm (tr->context_name ().to_str0 ()); 
 }
 
+LY_DEFINE (ly_context_grob_definition, "ly:context-grob-definition",
+          1, 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);
+  SCM_ASSERT_TYPE (tr, context, SCM_ARG1, __FUNCTION__, "Context");
+  SCM_ASSERT_TYPE (ly_c_symbol_p (name), name, SCM_ARG2, __FUNCTION__, "symbol");
+
+    
+  return updated_grob_properties (tr, name);
+}
+
+
 LY_DEFINE (ly_context_pushpop_property, "ly:context-pushpop-property",
           3, 1, 0, (SCM context, SCM grob, SCM eltprop, SCM val),
           "Do a single @code{\\override} or @code{\\revert} operation "