From e23028a5806e0dae1fd296ccaaf7af67e620355d Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Wed, 8 May 2002 20:00:59 +0000 Subject: [PATCH] (format:fn-max): Increase to 400 so ~f and ~g can print long real numbers with large positive and negative exponents. --- ice-9/format.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ice-9/format.scm b/ice-9/format.scm index 6b2313ae8..1b65d4f62 100644 --- a/ice-9/format.scm +++ b/ice-9/format.scm @@ -1437,7 +1437,7 @@ ; the flonum buffers -(define format:fn-max 200) ; max. number of number digits +(define format:fn-max 400) ; max. number of number digits (define format:fn-str (make-string format:fn-max)) ; number buffer (define format:fn-len 0) ; digit length of number (define format:fn-dot #f) ; dot position of number