From 011849c2f896e45b6cff0ef5fa6166bb28b6095b Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Thu, 10 Jan 2019 13:11:42 -0800
Subject: [PATCH] don't be mean

---
 pitfall/pitfall/color.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pitfall/pitfall/color.rkt b/pitfall/pitfall/color.rkt
index c4d93292..cd8dec4d 100644
--- a/pitfall/pitfall/color.rkt
+++ b/pitfall/pitfall/color.rkt
@@ -93,7 +93,7 @@
          ; match two at a time and convert to hex
          (match-let ([(list hsh r r2 g g2 b b2) (string->list color)])
            (map (λ (str) (string->number str 16)) (list (string r r2) (string g g2) (string b b2)))))]
-       [(hash-ref named-colors color #f) => normalize-color]
+       [(hash-ref named-colors (string-downcase color) #f) => normalize-color]
        [else #false])]
     [(list (? number?) ...) (for/list ([c (in-list color)])
                               (define x (/ c (case (length color)