Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / lily / ly-module.cc

diff --git a/lily/ly-module.cc b/lily/ly-module.cc
index 740f9e4e521ceda5fb92eb6d417a2b9648dbe75c..45db747819a97ff1a58beb522566d7d8513c5673 100644 (file)
--- 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