]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/source-file.cc
Release: bump Welcome versions.
[lilypond.git] / lily / source-file.cc
index 67690289b97d7dc42bdef0f8c27dd2e916415cc9..14fdf2beb3b6ef4c10ff835c60deeca2a5811157 100644 (file)
@@ -42,8 +42,6 @@ using namespace std;
 #include "misc.hh"
 #include "warn.hh"
 
-ADD_SMOB_INIT (Source_file);
-
 void
 Source_file::load_stdin ()
 {
@@ -364,16 +362,16 @@ Source_file::get_port () const
 /****************************************************************/
 
 
-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);