+ scope_ = SCM_EOL;
+ translator_tab_ = 0;
+ scaled_fonts_ = SCM_EOL;
+ smobify_self ();
+
+ translator_tab_ = new Scheme_hash_table (*s.translator_tab_);
+ scm_gc_unprotect_object (translator_tab_->self_scm ());
+
+ scaled_fonts_ = scm_list_copy (s.scaled_fonts_);
+
+ scope_= ly_make_anonymous_module ();
+ if (ly_module_p (s.scope_))
+ ly_copy_module_variables (scope_, s.scope_);
+}
+
+
+IMPLEMENT_SMOBS (Music_output_def);
+IMPLEMENT_DEFAULT_EQUAL_P (Music_output_def);
+
+SCM
+Music_output_def::mark_smob (SCM m)
+{
+ Music_output_def * mo = (Music_output_def*) SCM_CELL_WORD_1 (m);
+ if (mo->translator_tab_)
+ scm_gc_mark (mo->translator_tab_->self_scm ());
+ scm_gc_mark (mo->scope_);
+
+ return mo->scaled_fonts_;