Issue 5024: Rework the Preinit framework into something simpler

[lilypond.git] / lily / context.cc

diff --git a/lily/context.cc b/lily/context.cc
index d96382e968226f697f300a24e05919f50fa959dc..a614146058f55273bc2070d0976c356d10d346b7 100644 (file)
--- a/lily/context.cc
+++ b/lily/context.cc
@@ -756,6 +756,11 @@ Context::print_smob (SCM port, scm_print_state *) const
   return 1;
 }
 
+void
+Context::derived_mark () const
+{
+}
+
 SCM
 Context::mark_smob () const
 {
@@ -776,10 +781,12 @@ Context::mark_smob () const
   if (events_below_)
     scm_gc_mark (events_below_->self_scm ());
 
+  derived_mark ();
+
   return properties_scm_;
 }
 
-const char Context::type_p_name_[] = "ly:context?";
+const char * const Context::type_p_name_ = "ly:context?";
 
 Global_context *
 Context::get_global_context () const