summaryrefslogtreecommitdiff
path: root/scheme/chez/geiser
diff options
context:
space:
mode:
authorChaos Eternal <chaos@shlug.org>2017-08-20 22:46:32 +0800
committerChaos Eternal <chaos@shlug.org>2017-08-20 22:46:32 +0800
commit993b63096a0b1b40e51fd0133d32998867f54b81 (patch)
treef28f0e097678be649461bce9cf9a0da74a4693bc /scheme/chez/geiser
parent1bb0a878513ffeac666205b96b92174323322eae (diff)
downloadgeiser-chez-993b63096a0b1b40e51fd0133d32998867f54b81.tar.gz
geiser-chez-993b63096a0b1b40e51fd0133d32998867f54b81.tar.bz2
Alway pretty-print for results
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)))