From 77f876c73753cd8bba77dd121cb646f36e53fc1e Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Tue, 17 Jun 2014 21:53:09 -0400
Subject: [PATCH] Use write for keys rather than display in
 pretty-print-matcher

---
 minimart/route.rkt | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/minimart/route.rkt b/minimart/route.rkt
index 8fa6fd9..29cb596 100644
--- a/minimart/route.rkt
+++ b/minimart/route.rkt
@@ -859,10 +859,12 @@
 	     (d " ")
 	     (define keystr (call-with-output-string
 			     (lambda (p)
-			       (if (struct-type? key)
-				   (begin (display "<s:" p)
-					  (display (struct-type-name key) p))
-				   (display key p)))))
+			       (cond
+				[(struct-type? key)
+				 (display "<s:" p)
+				 (display (struct-type-name key) p)]
+				[else
+				 (write key p)]))))
 	     (d keystr)
 	     (walk (+ i 1 (string-length keystr)) k)
 	     #t))]))