diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2015-08-31 17:18:31 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2015-08-31 17:18:31 +0200 |
| commit | 76d42a938e46847b66fd5bdbb6706c95500798fb (patch) | |
| tree | 9553ce09d94a398eaf257236ab679ce15353bb72 /scheme/chicken/geiser | |
| parent | 280902e4dbd68e3b74f0d2caa4963aa79e201095 (diff) | |
| parent | b232512c4d7bffae7f2ac8302c3136a637910264 (diff) | |
| download | geiser-guile-76d42a938e46847b66fd5bdbb6706c95500798fb.tar.gz geiser-guile-76d42a938e46847b66fd5bdbb6706c95500798fb.tar.bz2 | |
Merge remote-tracking branch 'dleslie/faster-output-handling'
Diffstat (limited to 'scheme/chicken/geiser')
| -rw-r--r-- | scheme/chicken/geiser/emacs.scm | 4 |
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) |