]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/scheme-listener.cc
Allow \addlyrics to work with arbitrary contexts
[lilypond.git] / lily / scheme-listener.cc
index fe57c3a7194a1bef701ce94a504014c857c8efb1..2807cc4ad14ca7039685d8b39818f72225d70ae2 100644 (file)
@@ -26,13 +26,10 @@ 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)
 {
   callback_ = SCM_EOL;
-  self_scm_ = SCM_EOL;
   smobify_self ();
   callback_ = c;
 }