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 7de61c5796fd291739c8f8e700a8132f58e1b2a8..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,6 +781,8 @@ Context::mark_smob () const
   if (events_below_)
     scm_gc_mark (events_below_->self_scm ());
 
+  derived_mark ();
+
   return properties_scm_;
 }