summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2015-08-31 17:18:31 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2015-08-31 17:18:31 +0200
commit76d42a938e46847b66fd5bdbb6706c95500798fb (patch)
tree9553ce09d94a398eaf257236ab679ce15353bb72 /scheme
parent280902e4dbd68e3b74f0d2caa4963aa79e201095 (diff)
parentb232512c4d7bffae7f2ac8302c3136a637910264 (diff)
downloadgeiser-chez-76d42a938e46847b66fd5bdbb6706c95500798fb.tar.gz
geiser-chez-76d42a938e46847b66fd5bdbb6706c95500798fb.tar.bz2
Merge remote-tracking branch 'dleslie/faster-output-handling'
Diffstat (limited to 'scheme')
-rw-r--r--scheme/chicken/geiser/emacs.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/scheme/chicken/geiser/emacs.scm b/scheme/chicken/geiser/emacs.scm
index 03c5d97..cddf8da 100644
--- a/scheme/chicken/geiser/emacs.scm
+++ b/scheme/chicken/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)