From 993b63096a0b1b40e51fd0133d32998867f54b81 Mon Sep 17 00:00:00 2001 From: Chaos Eternal Date: Sun, 20 Aug 2017 22:46:32 +0800 Subject: Alway pretty-print for results --- scheme/chez/geiser/geiser.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'scheme') diff --git a/scheme/chez/geiser/geiser.ss b/scheme/chez/geiser/geiser.ss index 6568120..e833e47 100644 --- a/scheme/chez/geiser/geiser.ss +++ b/scheme/chez/geiser/geiser.ss @@ -55,7 +55,9 @@ (with-output-to-string (lambda () (display-condition result-mid)))))) '()))) - (write `((result ,(write-to-string result)) + (write `((result ,(with-output-to-string + (lambda () + (pretty-print result)))) (output . "") ,error)) (newline))) -- cgit v1.2.3