Issue 4135/2: Replace mark_smob static member functions with non-static members

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

diff --git a/lily/source-file.cc b/lily/source-file.cc
index 34f8c8b9c53d690c7caa3eb9ae2f8dbf6a851954..849a8f7e6fc83a11e65fbdc598c1edb0cf6371cb 100644 (file)
--- a/lily/source-file.cc
+++ b/lily/source-file.cc
@@ -362,11 +362,9 @@ Source_file::get_port () const
 const char Source_file::type_p_name_[] = "ly:source-file?";
 
 SCM
-Source_file::mark_smob (SCM smob)
+Source_file::mark_smob ()
 {
-  Source_file *sc = (Source_file *) SCM_CELL_WORD_1 (smob);
-
-  return sc->str_port_;
+  return str_port_;
 }
 
 int