X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fdispatcher.cc;h=5101e158e3f2e17252cbb2d94aa2140b0be90434;hb=07fc23a3e792ca9b8b2b83537b06a90ddc8974a5;hp=64062139b0d133ce598da861aefb9fc3b100ec96;hpb=ade2bb7da653fbd9d670590afd67376fe69c59dd;p=lilypond.git

diff --git a/lily/dispatcher.cc b/lily/dispatcher.cc
index 64062139b0..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 ()
@@ -68,7 +68,7 @@ Dispatcher::dispatch (SCM sev)
   SCM class_symbol = ev->get_property ("class");
   if (!scm_symbol_p (class_symbol))
     {
-      warning (_f ("Event class should be a symbol"));
+      warning (_ ("Event class should be a symbol"));
       return;
     }