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

gestalt->pretty-string

This commit is contained in:
Tony Garnock-Jones 2014-06-06 16:20:35 -04:00
parent 1e0971d0f1
commit 22e109413f
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
minimart/gestalt.rkt
View File

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