Doc: Usage 1.2 - Added note about using wildcards

[lilypond.git] / lily / scheme-listener.cc

diff --git a/lily/scheme-listener.cc b/lily/scheme-listener.cc
index 2807cc4ad14ca7039685d8b39818f72225d70ae2..6e567b0aebc4375b4548d68e93538afb54dae6e5 100644 (file)
--- a/lily/scheme-listener.cc
+++ b/lily/scheme-listener.cc
@@ -35,10 +35,9 @@ Scheme_listener::Scheme_listener (SCM c)
 }
 
 SCM
-Scheme_listener::mark_smob (SCM obj)
+Scheme_listener::mark_smob ()
 {
-  Scheme_listener *me = (Scheme_listener *) SCM_CELL_WORD_1 (obj);
-  return me->callback_;
+  return callback_;
 }
 
 int