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 2388d4a88a103be474f080042752c772be54bdbb..6e567b0aebc4375b4548d68e93538afb54dae6e5 100644 (file)
--- a/lily/scheme-listener.cc
+++ b/lily/scheme-listener.cc
@@ -26,8 +26,6 @@ Scheme_listener::call (SCM ev)
   scm_call_1 (callback_, ev);
 }
 
-IMPLEMENT_SMOBS (Scheme_listener);
-IMPLEMENT_DEFAULT_EQUAL_P (Scheme_listener);
 
 Scheme_listener::Scheme_listener (SCM c)
 {
@@ -37,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