1 files changed, 4 insertions, 3 deletions
diff --git a/install.scm b/install.scm
index fe0dc2d..d15c804 100755
--- a/install.scm
+++ b/install.scm
@@ -20,9 +20,10 @@
     ((_ value f rest ...) (->> (f value) rest ...))))
 
 (define (ansi-color-log-formatter lvl time str)
-  (let ((color (cond ((eq? lvl 'CRITICAL) 'RED)
-                     ((eq? lvl 'WARN) 'YELLOW)
-                     ((eq? lvl 'OK) 'GREEN))))
+  (let ((color (case lvl
+                 ((CRITICAL) 'RED)
+                 ((WARN) 'YELLOW)
+                 ((OK) 'GREEN))))
     (string-append
      (strftime "%F %H:%M:%S" (localtime time))
      (colorize-string