translator_p_dict_p_ = new Scope (translator_tab_);
smobify_self ();
- scm_unprotect_object (variable_tab_->self_scm ());
- scm_unprotect_object (translator_tab_->self_scm ());
+ scm_gc_unprotect_object (variable_tab_->self_scm ());
+ scm_gc_unprotect_object (translator_tab_->self_scm ());
}
Music_output_def::~Music_output_def ()
style_sheet_ = SCM_EOL;
scaled_fonts_ = SCM_EOL;
smobify_self ();
- scm_unprotect_object (variable_tab_->self_scm ());
- scm_unprotect_object (translator_tab_->self_scm ());
+ scm_gc_unprotect_object (variable_tab_->self_scm ());
+ scm_gc_unprotect_object (translator_tab_->self_scm ());
scope_p_ = new Scope (variable_tab_);
IMPLEMENT_SMOBS (Music_output_def);
-IMPLEMENT_UNSMOB (Music_output_def,music_output_def);
+
IMPLEMENT_DEFAULT_EQUAL_P (Music_output_def);
SCM
int
Music_output_def::print_smob (SCM s, SCM p, scm_print_state *)
{
- Translator_def * def = unsmob_translator_def (s);
+ Music_output_def * def = unsmob_music_output_def (s);
scm_puts ("#<Music_output_def ", p);
- scm_write (def->type_name_, p);
+ //scm_write (def->type_name_, p);
scm_puts (">", p);
return 1;
}