From 0036a1b2c444552658aa35cae8ddef89c368b1bb Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Tue, 20 Nov 2018 15:30:35 -0800
Subject: [PATCH] suppress rounding

---
 sugar/unstable/js.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/sugar/unstable/js.rkt b/sugar/unstable/js.rkt
index 8fc4406..6e1abc7 100644
--- a/sugar/unstable/js.rkt
+++ b/sugar/unstable/js.rkt
@@ -29,7 +29,8 @@
 (define (number x)
   (unless (and (number? x) (< -1e21 x 1e21))
     (raise-argument-error 'number "valid number" x))
-  (let ([x (/ (round (* x 1e6)) 1e6)])
+  ;; 181120 suppress rounding to make test10 work
+  (let (#;[x (/ (round (* x 1e6)) 1e6)])
     (number->string (if (integer? x)
                         (inexact->exact x)
                         x))))