From 9d6d860dcd27fdea3c7a0f76f79863234555cafe Mon Sep 17 00:00:00 2001
From: Chaos Eternal <chaos@shlug.org>
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(-)
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