]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/input-smob.cc
Fix some bugs in the dynamic engraver and PostScript backend
[lilypond.git] / lily / input-smob.cc
index 7f66bcd3d3ec13ba84e79d96d75da05a5b314ac6..e3bc5d275d8f90907351184820cf01091c4cf971 100644 (file)
@@ -6,8 +6,8 @@
   (c) 2000--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
 */
 
-#include "input.hh"
-#include "source-file.hh"
+#include "input-smob.hh"
+
 #include "std-string.hh"
 
 #include "ly-smobs.icc"
@@ -18,13 +18,8 @@ Input dummy_input_global;
 static long input_tag;
 
 static
-SCM mark_smob (SCM s)
+SCM mark_smob (SCM)
 {
-  Input *sc = (Input *) SCM_CELL_WORD_1 (s);
-
-  if (Source_file *sf = sc->get_source_file ())
-    return sf->self_scm ();
-
   return SCM_EOL;
 }