X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Flistener.cc;h=c8202a9d345d6ef8d9d0fabe066d688cd380a5e6;hb=f818a60416d32dcced3d17d971c5fa959d4cecdc;hp=8b9f3ad9ac30047aca16d773344ae1ddfc4dc007;hpb=2a8dcc4faa8a16229774d3414eedbf46feceac84;p=lilypond.git

diff --git a/lily/listener.cc b/lily/listener.cc
index 8b9f3ad9ac..c8202a9d34 100644
--- a/lily/listener.cc
+++ b/lily/listener.cc
@@ -10,11 +10,11 @@
 #include "ly-smobs.icc"
 #include "warn.hh"
 
-/*
-Listener_target::~Listener_target ()
+Listener::Listener ()
 {
+  target_ = 0;
+  type_ = 0;
 }
-*/
 
 Listener::Listener (const void *target, Listener_function_table *type)
 {
@@ -36,12 +36,13 @@ SCM
 Listener::mark_smob (SCM sm)
 {
   Listener *me = (Listener *) SCM_CELL_WORD_1 (sm);
-  (me->type_->mark_callback) (me->target_);
+  if (me->type_)
+    (me->type_->mark_callback) (me->target_);
   return SCM_EOL;
 }
 
 int
-Listener::print_smob (SCM s, SCM p, scm_print_state*)
+Listener::print_smob (SCM, SCM p, scm_print_state*)
 {
   scm_puts ("#<Listener>", p);
   return 1;