From e4eed9a9e4230f99a7cd3f1fa133ec68faf368fb Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 11 Dec 2015 16:34:50 +1300 Subject: [PATCH] Add prospect-pretty-print->string --- prospect/pretty.rkt | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/prospect/pretty.rkt b/prospect/pretty.rkt index 199dd6e..8714880 100644 --- a/prospect/pretty.rkt +++ b/prospect/pretty.rkt @@ -3,6 +3,8 @@ (provide gen:prospect-pretty-printable prospect-pretty-print + prospect-pretty-print->string + exn->string ;; required from exn-util.rkt string-indent indented-port-output) @@ -22,6 +24,11 @@ (define (prospect-pretty-print v [p (current-output-port)]) (pretty-write v p))])) +(define (prospect-pretty-print->string v) + (define p (open-output-string)) + (prospect-pretty-print v p) + (get-output-string p)) + (define (string-indent amount s) (define pad (make-string amount #\space)) (string-join (for/list [(line (string-split s "\n"))] (string-append pad line)) "\n"))