X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fgeneral-scheme.cc;h=558d111f8617b7b61147504ec8dbf658446b76ed;hb=9f3572d98bb948c9689cd1f75401a029451fa001;hp=5beda8355e9f5ec2940e8cbd0e5ecdc59b68bca4;hpb=04265f11d1f21416ccebd2dcaa1d903dc781b36e;p=lilypond.git

diff --git a/lily/general-scheme.cc b/lily/general-scheme.cc
index 5beda8355e..558d111f86 100644
--- a/lily/general-scheme.cc
+++ b/lily/general-scheme.cc
@@ -307,19 +307,3 @@ LY_DEFINE (ly_stderr_redirect, "ly:stderr-redirect",
   freopen (ly_scm2newstr (file_name, 0), m, stderr);
   return SCM_UNSPECIFIED;
 }
-
-static SCM
-accumulate_symbol (void *closure, SCM key, SCM val, SCM result)
-{
-  (void) closure;
-  (void) val;
-  return scm_cons (key, result);
-}
-
-LY_DEFINE(ly_hash_table_keys, "ly:hash-table-keys",
-	  1,0,0, (SCM tab),
-	  "return a list of keys in @var{tab}")
-{
-  return scm_internal_hash_fold ((Hash_closure_function) & accumulate_symbol,
-				 NULL, SCM_EOL, tab);
-}