From 0de9e0808b06a8227d7815cf69453232418739f3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 18 May 2019 10:21:45 -0400
Subject: [PATCH] suppress "|" precision indicator when printing flonums

I'm not sure why precision is shown when `print-precision` is set to
0.5e-323.

original commit: 1976cd57b6981c3c5a559943763190855ca6ab21
---
 s/print.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/s/print.ss b/s/print.ss
index 15cc463f71..2d7958f4c0 100644
--- a/s/print.ss
+++ b/s/print.ss
@@ -1040,6 +1040,8 @@ floating point returns with (1 0 -1 ...).
                        (display-precision (fxmax m (integer-length (vector-ref dx 0))) p)
                        (display-precision m p)))]
                 [else
+                 (void)
+                 #;
                  (let ([m (integer-length (vector-ref dx 0))])
                    (when (fx< 0 m 53) (display-precision m p)))]))))))