syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add prospect-pretty-print->string

This commit is contained in:
Tony Garnock-Jones 2015-12-11 16:34:50 +13:00
parent 07f7fcb060
commit e4eed9a9e4
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
prospect/pretty.rkt
View File

@ -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"))