Fix naming of two Scheme type predicates

* Two exported Scheme functions did not follow the
  naming convention for type predicates.  This patch
  fixes the issue.

Signed-off-by: Patrick McCarty <pnorcks@gmail.com>

diff --git a/lily/dispatcher.cc b/lily/dispatcher.cc
index 29ad2ba3763c256f712ba5c7e442ed16d9d997e4..5101e158e3f2e17252cbb2d94aa2140b0be90434 100644 (file)
--- a/lily/dispatcher.cc
+++ b/lily/dispatcher.cc
@@ -13,7 +13,7 @@
 #include "warn.hh"
 
 IMPLEMENT_SMOBS (Dispatcher);
-IMPLEMENT_TYPE_P (Dispatcher, "dispatcher");
+IMPLEMENT_TYPE_P (Dispatcher, "ly:dispatcher?");
 IMPLEMENT_DEFAULT_EQUAL_P (Dispatcher);
 
 Dispatcher::~Dispatcher ()

diff --git a/lily/listener.cc b/lily/listener.cc
index c8202a9d345d6ef8d9d0fabe066d688cd380a5e6..477733dfe2e057a9422bb405c62c9af98332aec6 100644 (file)
--- a/lily/listener.cc
+++ b/lily/listener.cc
@@ -58,4 +58,4 @@ Listener::equal_p (SCM a, SCM b)
 }
 
 IMPLEMENT_SIMPLE_SMOBS (Listener);
-IMPLEMENT_TYPE_P (Listener, "listener");
+IMPLEMENT_TYPE_P (Listener, "ly:listener?");