const char Pitch::type_p_name_[] = "ly:pitch?";
SCM
-Pitch::mark_smob ()
+Pitch::mark_smob () const
{
return scale_->self_scm ();
}
int
-Pitch::print_smob (SCM port, scm_print_state *)
+Pitch::print_smob (SCM port, scm_print_state *) const
{
scm_puts ("#<Pitch ", port);
scm_display (ly_string2scm (to_string ()), port);