Issue 4158: Turn Smob_base<>::print_smob into member functions

[lilypond.git] / lily / source-file.cc

diff --git a/lily/source-file.cc b/lily/source-file.cc
index 849a8f7e6fc83a11e65fbdc598c1edb0cf6371cb..fe8635a49559d81fe68a3c4be20d745658b83000 100644 (file)
--- a/lily/source-file.cc
+++ b/lily/source-file.cc
@@ -368,12 +368,10 @@ Source_file::mark_smob ()
 }
 
 int
-Source_file::print_smob (SCM smob, SCM port, scm_print_state *)
+Source_file::print_smob (SCM port, scm_print_state *)
 {
-  Source_file *sc = (Source_file *) SCM_CELL_WORD_1 (smob);
-
   scm_puts ("#<Source_file ", port);
-  scm_puts (sc->name_.c_str (), port);
+  scm_puts (name_.c_str (), port);
 
   /* Do not print properties, that is too much hassle.  */
   scm_puts (" >", port);