From 22e109413fa6c807888435bbbf1008f76c2845bc Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 6 Jun 2014 16:20:35 -0400 Subject: [PATCH] gestalt->pretty-string --- minimart/gestalt.rkt | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/minimart/gestalt.rkt b/minimart/gestalt.rkt index 09b607f..0df5160 100644 --- a/minimart/gestalt.rkt +++ b/minimart/gestalt.rkt @@ -3,6 +3,7 @@ (require racket/set) (require racket/match) +(require (only-in racket/port with-output-to-string)) (require "route.rkt") @@ -24,6 +25,7 @@ strip-gestalt-label label-gestalt pretty-print-gestalt + gestalt->pretty-string gestalt->jsexpr jsexpr->gestalt) @@ -270,6 +272,9 @@ (when subs (fprintf port " - subs:") (pretty-print-matcher subs port #:indent 9)) (when advs (fprintf port " - advs:") (pretty-print-matcher advs port #:indent 9))))))) +(define (gestalt->pretty-string g) + (with-output-to-string (lambda () (pretty-print-gestalt g)))) + (define (gestalt->jsexpr g [success->jsexpr (lambda (v) #t)]) (list "gestalt" (for/list [(ls (in-list (gestalt-metalevels g)))] (for/list [(l (in-list ls))]