X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fly-module.cc;h=45db747819a97ff1a58beb522566d7d8513c5673;hb=9f3572d98bb948c9689cd1f75401a029451fa001;hp=740f9e4e521ceda5fb92eb6d417a2b9648dbe75c;hpb=04265f11d1f21416ccebd2dcaa1d903dc781b36e;p=lilypond.git

diff --git a/lily/ly-module.cc b/lily/ly-module.cc
index 740f9e4e52..45db747819 100644
--- a/lily/ly-module.cc
+++ b/lily/ly-module.cc
@@ -85,7 +85,13 @@ ly_use_module (SCM mod, SCM used)
 
 #define FUNC_NAME __FUNCTION__
 
-
+static SCM
+accumulate_symbol (void *closure, SCM key, SCM val, SCM result)
+{
+  (void) closure;
+  (void) val;
+  return scm_cons (key, result);
+}
 
 SCM
 ly_module_symbols (SCM mod)
@@ -93,7 +99,8 @@ ly_module_symbols (SCM mod)
   SCM_VALIDATE_MODULE (1, mod);
 
   SCM obarr = SCM_MODULE_OBARRAY (mod);
-  return ly_hash_table_keys (obarr);
+  return scm_internal_hash_fold ((Hash_closure_function) & accumulate_symbol,
+				 NULL, SCM_EOL, obarr);
 }
 
 static SCM