X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fly-module.cc;h=2cd0403e28d76c2c4d3b8681fae11233c2be4de3;hb=1a28e684d2b115d9ec86fa44ea3cfda893dec17b;hp=e3b876967f7aaa5bc1200c5b624b837ef2b931a5;hpb=58bcc84c9480dae1b21bc24d8396b91fe19e0131;p=lilypond.git

diff --git a/lily/ly-module.cc b/lily/ly-module.cc
index e3b876967f..2cd0403e28 100644
--- a/lily/ly-module.cc
+++ b/lily/ly-module.cc
@@ -75,7 +75,7 @@ LY_DEFINE (ly_module_copy, "ly:module-copy",
 	   "Copy all bindings from module SRC into DEST.")
 {
   SCM_VALIDATE_MODULE (1, src);
-  scm_internal_hash_fold ((Hash_cl_func) &module_define_closure_func,
+  scm_internal_hash_fold ((Hash_cl_func) & module_define_closure_func,
 			  (void *) dest,
 			  SCM_EOL, SCM_MODULE_OBARRAY (src));
   return SCM_UNSPECIFIED;
@@ -95,7 +95,7 @@ ly_module_symbols (SCM mod)
   SCM_VALIDATE_MODULE (1, mod);
 
   SCM obarr = SCM_MODULE_OBARRAY (mod);
-  return scm_internal_hash_fold ((Hash_cl_func) &accumulate_symbol,
+  return scm_internal_hash_fold ((Hash_cl_func) & accumulate_symbol,
 				 NULL, SCM_EOL, obarr);
 }
 
@@ -104,14 +104,9 @@ entry_to_alist (void *closure, SCM key, SCM val, SCM result)
 {
   (void) closure;
   if (scm_variable_bound_p (val) == SCM_BOOL_T)
-    {
-      return scm_cons (scm_cons (key, scm_variable_ref (val)), result);
-    }
-  else
-    {
-      programming_error ("Unbound variable in module.");
-      return result;
-    }
+    return scm_cons (scm_cons (key, scm_variable_ref (val)), result);
+  programming_error ("unbound variable in module");
+  return result;
 }
 
 LY_DEFINE (ly_module2alist, "ly:module->alist",
@@ -121,7 +116,7 @@ LY_DEFINE (ly_module2alist, "ly:module->alist",
   SCM_VALIDATE_MODULE (1, mod);
   SCM obarr = SCM_MODULE_OBARRAY (mod);
 
-  return scm_internal_hash_fold ((Hash_cl_func) &entry_to_alist, NULL, SCM_EOL, obarr);
+  return scm_internal_hash_fold ((Hash_cl_func) & entry_to_alist, NULL, SCM_EOL, obarr);
 }
 
 /* Lookup SYM, but don't give error when it is not defined.  */