>From f677f039b39d5fa36f81aaee527ed8e5d3814e30 Mon Sep 17 00:00:00 2001
From: Patrick McCarty <address@hidden>
Date: Tue, 30 Dec 2008 18:10:05 -0800
Subject: [PATCH] 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 <address@hidden>
---
 lily/dispatcher.cc |    2 +-
 lily/listener.cc   |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lily/dispatcher.cc b/lily/dispatcher.cc
index 29ad2ba..5101e15 100644
--- 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 c8202a9..477733d 100644
--- 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?");
-- 
1.6.1