diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2015-09-08 23:51:21 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2015-09-08 23:51:21 +0200 |
| commit | 8eb2aafedbb2a65a69a830814da61395cf276c54 (patch) | |
| tree | 35a46fd7d56e15a7722ed583dd7b786fa14ff210 /scheme | |
| parent | e19dde931f9ec768d142a3f2c7bb4b6779ac4d4a (diff) | |
| download | geiser-chez-8eb2aafedbb2a65a69a830814da61395cf276c54.tar.gz geiser-chez-8eb2aafedbb2a65a69a830814da61395cf276c54.tar.bz2 | |
Ensuring switch-to-geiser asks for an implementation
Should fix issue #85
Diffstat (limited to 'scheme')
| -rw-r--r-- | scheme/guile/geiser/evaluation.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scheme/guile/geiser/evaluation.scm b/scheme/guile/geiser/evaluation.scm index f28fb28..ea4071d 100644 --- a/scheme/guile/geiser/evaluation.scm +++ b/scheme/guile/geiser/evaluation.scm @@ -52,7 +52,7 @@ (define (stringify obj) (object->string obj (lambda (o . ps) - (pretty-print o (car ps) #:max-expr-width 1000)))) + (pretty-print o (car ps) #:max-expr-width 100)))) (define (call-with-result thunk) (letrec* ((result #f) |