+IMPLEMENT_SMOBS (Score);
+IMPLEMENT_DEFAULT_EQUAL_P (Score);
+
+
+SCM
+Score::mark_smob (SCM s)
+{
+ Score * sc = (Score*) SCM_CELL_WORD_1 (s);
+ if (sc->header_p_)
+ scm_gc_mark (sc->header_p_->self_scm ());
+ for (int i = sc->def_p_arr_.size (); i--;)
+ scm_gc_mark (sc->def_p_arr_[i]->self_scm ());
+
+ return sc->music_;
+}
+
+int
+Score::print_smob (SCM , SCM p, scm_print_state*)