Hello,

There are two exported Scheme functions that should be renamed.  They
are noticeably out of order in the list of Scheme functions in the IR.

This patch fixes their names accordingly to agree with the
type-predicate naming convention.

Thanks,
Patrick
>From f677f039b39d5fa36f81aaee527ed8e5d3814e30 Mon Sep 17 00:00:00 2001
From: Patrick McCarty <[email protected]>
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 <[email protected]>
---
 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

_______________________________________________
lilypond-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-devel

Reply via email to