From 8eb2aafedbb2a65a69a830814da61395cf276c54 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Tue, 8 Sep 2015 23:51:21 +0200 Subject: Ensuring switch-to-geiser asks for an implementation Should fix issue #85 --- scheme/guile/geiser/evaluation.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'scheme/guile') 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) -- cgit v1.2.3