From 2013f67341c523cbd3f8a4f8beba9df0e9b7a14c Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Wed, 14 May 2014 16:28:47 -0400
Subject: [PATCH] Oops. Correct stupid error.

---
 minimart/route.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/minimart/route.rkt b/minimart/route.rkt
index c71c0af..e45aaf9 100644
--- a/minimart/route.rkt
+++ b/minimart/route.rkt
@@ -595,7 +595,8 @@
   (define (pretty-print-matcher* m)
     (newline)
     (pretty-print-matcher m)
-    (flush-output))
+    (flush-output)
+    m)
  
   (void (pretty-print-matcher*
 	 (matcher-union (pattern->matcher 'A (list (list ?) 'x))