From ff3ba722ad43608757caacd2dc208ce8b9f34556 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 24 Jan 2016 00:03:32 -0500 Subject: [PATCH] Fix pretty-printing of networks --- prospect-monolithic/core.rkt | 1 + prospect/core.rkt | 1 + 2 files changed, 2 insertions(+) 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))