diff --git a/prospect-monolithic/core.rkt b/prospect-monolithic/core.rkt index 863ff72..6ff0394 100644 --- a/prospect-monolithic/core.rkt +++ b/prospect-monolithic/core.rkt @@ -432,6 +432,7 @@ (fprintf p " - ~a live processes\n" (hash-count states)) (fprintf p " - ") (display (indented-port-output 3 (lambda (p) (prospect-pretty-print mux p)) #:first-line? #f) p) + (newline p) (for ([pid (set-union (hash-keys (mux-interest-table mux)) (hash-keys states))]) (fprintf p " ---- process ~a, behavior ~v, STATE:\n" pid (hash-ref behaviors pid #f)) (define state (hash-ref states pid #f)) diff --git a/prospect/core.rkt b/prospect/core.rkt index 0a6affc..0c15bf9 100644 --- a/prospect/core.rkt +++ b/prospect/core.rkt @@ -421,6 +421,7 @@ (fprintf p " - ~a live processes\n" (hash-count states)) (fprintf p " - ") (display (indented-port-output 3 (lambda (p) (prospect-pretty-print mux p)) #:first-line? #f) p) + (newline p) (for ([pid (set-union (hash-keys (mux-interest-table mux)) (hash-keys states))]) (fprintf p " ---- process ~a, behavior ~v, STATE:\n" pid (hash-ref behaviors pid #f)) (define state (hash-ref states pid #f))