Oops. Correct stupid error.

2014-05-14 16:28:47 -04:00 · 2014-05-14 16:28:47 -04:00 · 2013f67341
parent 9ea6cc038d
commit 2013f67341
1 changed files with 2 additions and 1 deletions
--- 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))