X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=lily%2Fsmobs.cc;h=c700ea0d9b0f0a81d7e3f5d40774f5a85236b756;hb=77267b700c377fd170abcbf4863728937038eb5e;hp=d36c9be7dc6f6ec560839c6c0b1c8c64c5941739;hpb=ee35bce9fe991b2ee3dfa7e33539d74b29bcf91f;p=lilypond.git

diff --git a/lily/smobs.cc b/lily/smobs.cc
index d36c9be7dc..c700ea0d9b 100644
--- a/lily/smobs.cc
+++ b/lily/smobs.cc
@@ -18,6 +18,13 @@
 */
 
 #include "smobs.hh"
+#include "listener.hh"
+
+Listener
+Smob_core::get_listener (SCM callback)
+{
+  return Listener (callback, self_scm ());
+}
 
 /*
   The CDR contains the actual protected list.