From: Patrick McCarty <pnorcks@gmail.com>
Date: Wed, 31 Dec 2008 02:10:05 +0000 (-0800)
Subject: Fix naming of two Scheme type predicates
X-Git-Tag: release/2.13.4-1~256
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=07fc23a3e792ca9b8b2b83537b06a90ddc8974a5;p=lilypond.git

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 29ad2ba376..5101e158e3 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 c8202a9d34..477733dfe2 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?");