summaryrefslogtreecommitdiff
path: root/scheme/chez/geiser
diff options
context:
space:
mode:
Diffstat (limited to 'scheme/chez/geiser')
-rw-r--r--scheme/chez/geiser/geiser.ss4
1 files changed, 3 insertions, 1 deletions
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)))