-Score::mark_smob (SCM s)
-{
- Score *sc = (Score *) SCM_CELL_WORD_1 (s);
-
- scm_gc_mark (sc->header_);
- for (vsize i = sc->defs_.size (); i--;)
- scm_gc_mark (sc->defs_[i]->self_scm ());
-
- scm_gc_mark (sc->input_location_);
- return sc->music_;
-}
-
-int
-Score::print_smob (SCM, SCM p, scm_print_state*)