/****************************************************************/
-const char Source_file::type_p_name_[] = "ly:source-file?";
+const char * const Source_file::type_p_name_ = "ly:source-file?";
SCM
-Source_file::mark_smob ()
+Source_file::mark_smob () const
{
return str_port_;
}
int
-Source_file::print_smob (SCM port, scm_print_state *)
+Source_file::print_smob (SCM port, scm_print_state *) const
{
scm_puts ("#<Source_file ", port);
scm_puts (name_.c_str (), port);