[no subject]

[Ludovic Courtès]

branch: master
commit e50469877b85fa08cf2bdad5715ba891cca31b89
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Jun 1 19:00:21 2023 +0200

    logging: Always log errors.
    
    Fixes a regression introduced in
    f1f0489ed7f731d48e5bf1d152e79f33fa1410fe where 'error-level messages
    would never be logged.
    
    * src/cuirass/logging.scm (log-message): Always log errors.
---
 src/cuirass/logging.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/cuirass/logging.scm b/src/cuirass/logging.scm
index 11a781e..162241d 100644
--- a/src/cuirass/logging.scm
+++ b/src/cuirass/logging.scm
@@ -77,7 +77,8 @@
             (and (eq? level 'info)
                  (memq (current-logging-level) '(debug info)))
             (and (eq? level 'warning)
-                 (memq (current-logging-level) '(debug info warning))))
+                 (memq (current-logging-level) '(debug info warning)))
+            (eq? level 'error))
     (let ((fmt (cond
                 ((eq? level 'info)
                  fmt)