* stepmake/aclocal.m4 (STEPMAKE_KPATHSEA): Do not include

[lilypond.git] / lily / object-key-dumper.cc

diff --git a/lily/object-key-dumper.cc b/lily/object-key-dumper.cc
index 368e2d0402ef96191f36029b8a0e842c97685614..36e8f02cbe01d9f937b4bbde0a331ef4bcb1d3a7 100644 (file)
--- a/lily/object-key-dumper.cc
+++ b/lily/object-key-dumper.cc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 2004 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  (c) 2004--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
 */
 
@@ -103,42 +103,6 @@ Object_key_dumper::get_file_contents () const
   return scm_reverse (file_contents_);
 }
 
-LY_DEFINE(ly_make_dumper, "ly:make-dumper",
-         0,0,0,
-         (),
-         "Create a key dumper. "
-         )
-{
-  Object_key_dumper *u = new Object_key_dumper ();
-  SCM x = u->self_scm();
-  scm_gc_unprotect_object (x);
-  return x;
-}
-
-LY_DEFINE(ly_dumper_definitions, "ly:dumper-definitions",
-         1,0,0,
-         (SCM dumper),
-         "Return list of key definitions. "
-         )
-{
-  Object_key_dumper *u = unsmob_key_dumper (dumper);
-  SCM_ASSERT_TYPE(u, dumper, SCM_ARG1, __FUNCTION__, "dumper");
-  return u->get_file_contents();
-}
-
-LY_DEFINE(ly_dumper_key_serial, "ly:dumper-key-serial",
-         2,0,0,
-         (SCM dumper, SCM key),
-         "Return the  key serial number @var{key}. "
-         )
-{
-  Object_key_dumper* u = unsmob_key_dumper (dumper);
-  Object_key *k = unsmob_key (key);
-  SCM_ASSERT_TYPE(u, dumper, SCM_ARG1, __FUNCTION__, "dumper");
-  SCM_ASSERT_TYPE(k, key, SCM_ARG2, __FUNCTION__, "key");
-  return u->dump_key (k);
-}
-
 Object_key_dumper::~Object_key_dumper()
 {
 }