From 729db4356623b88623e59d647a3267183949692c Mon Sep 17 00:00:00 2001
From: Oscar Najera <hi@oscarnajera.com>
Date: Mon, 18 Sep 2023 13:12:03 +0200
Subject: install review

---
 install.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'install.scm')

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
-- 
cgit v1.2.3