branch: elpa/geiser-chicken
commit d6df78f4ff1a9eaf0597668abd7d9e7f7b48b394
Merge: 0e84bba caa8174
Author: Jose Antonio Ortega Ruiz <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
Merge remote-tracking branch 'dleslie/faster-output-handling'
---
geiser/emacs.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/geiser/emacs.scm b/geiser/emacs.scm
index 03c5d97..cddf8da 100644
--- a/geiser/emacs.scm
+++ b/geiser/emacs.scm
@@ -259,11 +259,11 @@
(set! result
(cond
((list? result)
- (map (lambda (v) (with-output-to-string (lambda () (write v))))
result))
+ (map (lambda (v) (with-output-to-string (lambda () (pretty-print
v)))) result))
((eq? result (if #f #t))
(list output))
(else
- (list (with-output-to-string (lambda () (write result)))))))
+ (list (with-output-to-string (lambda () (pretty-print result)))))))
(let ((out-form
`((result ,@result)
