diff options
| author | Chaos Eternal <chaos@shlug.org> | 2017-08-20 22:46:32 +0800 |
|---|---|---|
| committer | Chaos Eternal <chaos@shlug.org> | 2017-08-20 22:46:32 +0800 |
| commit | 993b63096a0b1b40e51fd0133d32998867f54b81 (patch) | |
| tree | f28f0e097678be649461bce9cf9a0da74a4693bc /scheme/chez/geiser | |
| parent | 1bb0a878513ffeac666205b96b92174323322eae (diff) | |
| download | geiser-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.ss | 4 |
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))) |