*** empty log message ***

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

diff --git a/lily/ly-module.cc b/lily/ly-module.cc
index fb4d3abd16fae79c0d3f232db111cb091426573c..2cd0403e28d76c2c4d3b8681fae11233c2be4de3 100644 (file)
--- a/lily/ly-module.cc
+++ b/lily/ly-module.cc
@@ -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",