[nongnu] elpa/geiser-chez 993b630 07/37: Alway pretty-print for results

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 993b63096a0b1b40e51fd0133d32998867f54b81
Author: Chaos Eternal <chaos@shlug.org>
Commit: Chaos Eternal <chaos@shlug.org>

    Alway pretty-print for results
---
 scheme/chez/geiser/geiser.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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