From 72d6ba76c5dd92d7b1829eea2e3d7007c2ba18b1 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Tue, 21 Mar 2017 21:55:33 -0700
Subject: [PATCH] remove `sugar/list` dep

---
 brag/brag/private/colorer.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/brag/brag/private/colorer.rkt b/brag/brag/private/colorer.rkt
index 5f4de49..03a28d3 100644
--- a/brag/brag/private/colorer.rkt
+++ b/brag/brag/private/colorer.rkt
@@ -38,7 +38,8 @@
         (values val cat #f start end))))
 
 (module+ test
-  (require rackunit sugar/list)
+  (require rackunit)
+  (define-syntax-rule (values->list EXPR) (call-with-values (λ () EXPR) list))
   (define (apply-colorer str)
     (for/list ([annotation (in-port (λ (p)
                                       (let ([xs (values->list (color-brag p))])