From 993b63096a0b1b40e51fd0133d32998867f54b81 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