From 97016c56962b3ebd105b3d91bf5de47d499418c6 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Thu, 5 Mar 2015 16:40:25 +0000
Subject: [PATCH] Add patch->pretty-string

---
 prospect/patch.rkt | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/prospect/patch.rkt b/prospect/patch.rkt
index da73a26..fccffcd 100644
--- a/prospect/patch.rkt
+++ b/prospect/patch.rkt
@@ -25,7 +25,8 @@
          biased-intersection
          view-patch
 
-         pretty-print-patch)
+         pretty-print-patch
+         patch->pretty-string)
 
 (require racket/set)
 (require racket/match)
@@ -141,12 +142,13 @@
          (biased-intersection (patch-removed p) interests)))
 
 (define (pretty-print-patch p [port (current-output-port)])
+  (display (patch->pretty-string p) port))
+
+(define (patch->pretty-string p)
   (match-define (patch in out) p)
-  (fprintf port "<<<<<<<< Removed:\n")
-  (pretty-print-matcher out port)
-  (fprintf port "======== Added:\n")
-  (pretty-print-matcher in port)
-  (fprintf port ">>>>>>>>\n"))
+  (format "<<<<<<<< Removed:\n~a======== Added:\n~a>>>>>>>>\n"
+          (matcher->pretty-string out)
+          (matcher->pretty-string in)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;