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 | 9d6d860dcd27fdea3c7a0f76f79863234555cafe (patch) | |
| tree | a7e0ccc9cbde1c683257cf3ce9a38f76d64d1b9c /scheme/chez/geiser | |
| parent | ac2c6b7e3382d21113193059d9b19ba60b802a46 (diff) | |
| download | geiser-guile-9d6d860dcd27fdea3c7a0f76f79863234555cafe.tar.gz geiser-guile-9d6d860dcd27fdea3c7a0f76f79863234555cafe.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))) |