diff options
| -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))) |