(format:fn-max): Increase to 400 so ~f and ~g can print long real

numbers with large positive and negative exponents.

diff --git a/ice-9/format.scm b/ice-9/format.scm
index 6b2313a..1b65d4f 100644 (file)
--- 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