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

Make pretty-printed output a little wider

This commit is contained in:
Tony Garnock-Jones 2014-06-21 11:06:33 -04:00
parent bc3e5be900
commit 2466fe61c1
1 changed files with 99 additions and 98 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
minimart/trace/stderr.rkt
View File

@ -74,6 +74,7 @@
(define (display-trace)
(define receiver (make-log-receiver trace-logger 'info))
(parameterize ((pretty-print-columns 100))
(let loop ()
(match-define (vector level message-string data event-name) (sync receiver))
(match* (event-name data)
@ -174,7 +175,7 @@
(output "~a's full gestalt:\n" (format-pids (cdr pids)))
(pretty-print-gestalt (world-full-gestalt new-w)
(current-error-port))))))])
(loop)))
(loop))))
(void (when (not (set-empty? flags))
(thread display-trace)))