Make pretty-printed output a little wider
This commit is contained in:
parent
bc3e5be900
commit
2466fe61c1
|
@ -74,6 +74,7 @@
|
||||||
|
|
||||||
(define (display-trace)
|
(define (display-trace)
|
||||||
(define receiver (make-log-receiver trace-logger 'info))
|
(define receiver (make-log-receiver trace-logger 'info))
|
||||||
|
(parameterize ((pretty-print-columns 100))
|
||||||
(let loop ()
|
(let loop ()
|
||||||
(match-define (vector level message-string data event-name) (sync receiver))
|
(match-define (vector level message-string data event-name) (sync receiver))
|
||||||
(match* (event-name data)
|
(match* (event-name data)
|
||||||
|
@ -174,7 +175,7 @@
|
||||||
(output "~a's full gestalt:\n" (format-pids (cdr pids)))
|
(output "~a's full gestalt:\n" (format-pids (cdr pids)))
|
||||||
(pretty-print-gestalt (world-full-gestalt new-w)
|
(pretty-print-gestalt (world-full-gestalt new-w)
|
||||||
(current-error-port))))))])
|
(current-error-port))))))])
|
||||||
(loop)))
|
(loop))))
|
||||||
|
|
||||||
(void (when (not (set-empty? flags))
|
(void (when (not (set-empty? flags))
|
||||||
(thread display-trace)))
|
(thread display-trace)))
|
||||||
|
|
Loading…
Reference in New Issue