From 5fb1d5f63362c63dce6baa9bf7ff5320dbc7308b Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Mon, 26 Nov 2018 19:35:00 -0800
Subject: [PATCH] kw

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

diff --git a/sugar/unstable/js.rkt b/sugar/unstable/js.rkt
index 6e1abc7..e9d86a1 100644
--- a/sugar/unstable/js.rkt
+++ b/sugar/unstable/js.rkt
@@ -26,11 +26,10 @@
 
 
 ;; fancy number->string. bounds are checked, inexact integers are coerced.
-(define (number x)
+(define (number x #:round [round? #true])
   (unless (and (number? x) (< -1e21 x 1e21))
     (raise-argument-error 'number "valid number" x))
-  ;; 181120 suppress rounding to make test10 work
-  (let (#;[x (/ (round (* x 1e6)) 1e6)])
+  (let ([x (if round? (/ (round (* x 1e6)) 1e6) x)])
     (number->string (if (integer? x)
                         (inexact->exact x)
                         x))))