flonum-unparser-cutoff

 (fluid-let ((flonum-unparser-cutoff '(absolute 5)))
       (number->string (* 4 (atan 1 1))))