Replace C++ (in)equality checks with proper SCM syntax

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

diff --git a/lily/ly-module.cc b/lily/ly-module.cc
index 2b91e8583ec8b81633a2814c8ebd7a1c5b918ba4..3a3f39450c84951ed494376fbdaca901daee7da2 100644 (file)
--- a/lily/ly-module.cc
+++ b/lily/ly-module.cc
@@ -100,7 +100,7 @@ entry_to_alist (void * /* closure */,
                 SCM val,
                 SCM result)
 {
-  if (scm_variable_bound_p (val) == SCM_BOOL_T)
+  if (to_boolean (scm_variable_bound_p (val)))
     return scm_cons (scm_cons (key, scm_variable_ref (val)), result);
   programming_error ("unbound variable in module");
   return result;