+SCM
+Score_element::do_derived_mark ()
+{
+ return SCM_EOL;
+}
+
+
+SCM
+ly_set_elt_property (SCM elt, SCM sym, SCM val)
+{
+ Score_element * sc = unsmob_element (elt);
+
+ if (!gh_symbol_p (sym))
+ {
+ error ("Not a symbol");
+ ly_display_scm (sym);
+ return SCM_UNSPECIFIED;
+ }
+
+ if (sc)
+ {
+ sc->set_elt_property (sym, val);
+ }
+ else
+ {
+ error ("Not a score element");
+ ly_display_scm (elt);
+ }
+
+ return SCM_UNSPECIFIED;
+}
+
+
+SCM
+ly_get_elt_property (SCM elt, SCM sym)
+{
+ Score_element * sc = unsmob_element (elt);
+
+ if (sc)
+ {
+ return sc->get_elt_property (sym);
+ }
+ else
+ {
+ error ("Not a score element");
+ ly_display_scm (elt);
+ }
+ return SCM_UNSPECIFIED;
+}
+
+