From 5175a24a3a0671313a2bfbc9cafe8f9a099c95de Mon Sep 17 00:00:00 2001
From: tilpner
Date: Sun, 12 Aug 2018 21:11:45 +0200
Subject: Fix (col) color lookup

---
 irc/fancy.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/irc/fancy.rkt b/irc/fancy.rkt
index 362ce74..ad9e669 100644
--- a/irc/fancy.rkt
+++ b/irc/fancy.rkt
@@ -40,7 +40,7 @@
 
 (define (col f b . args)
   (string-append "\x03"
-    (cadr (assv f colors)) "," (assv b colors)
+    (cadr (assv f colors)) "," (cadr (assv b colors))
     (apply string-append (map ~a args)) "\x03"))
 
 (define (bold . args)
-- 
cgit v1.2.3