diff options
Diffstat (limited to 'scheme/guile/geiser/evaluation.scm')
| -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) |