+ variable_tab_ = new Scheme_hash_table (*s.variable_tab_);
+ translator_tab_ = new Scheme_hash_table (*s.translator_tab_);
+
+ style_sheet_ = SCM_EOL;
+ scaled_fonts_ = SCM_EOL;
+
+ smobify_self ();
+ scm_gc_unprotect_object (variable_tab_->self_scm ());
+ scm_gc_unprotect_object (translator_tab_->self_scm ());
+
+ style_sheet_ = scm_list_copy (s.style_sheet_);
+ scaled_fonts_ = scm_list_copy (s.scaled_fonts_);