From b8e47541bd0ea7750af42c86ba3ad2b9634e0f5f Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 26 Apr 2013 05:13:17 -0400 Subject: [PATCH] Switch from "x" to "*". As previously discussed with Ryan. --- collects/racket/format.rkt | 2 +- collects/tests/racket/format.rkt | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/racket/format.rkt b/collects/racket/format.rkt index f5af527235..ec04ba6106 100644 --- a/collects/racket/format.rkt +++ b/collects/racket/format.rkt @@ -318,7 +318,7 @@ (string-append (cond [(string? format-exponent) format-exponent] [(= base 10) "e"] - [else (format "x~s^" base)]) + [else (format "*~s^" base)]) (if (negative? exponent) "-" "+") (%pad (number->string (abs exponent)) #:pad-to 2 diff --git a/collects/tests/racket/format.rkt b/collects/tests/racket/format.rkt index 3a36230b92..195e610a07 100644 --- a/collects/tests/racket/format.rkt +++ b/collects/tests/racket/format.rkt @@ -251,7 +251,7 @@ "9.876e-01") (tc (~r #:notation 'exponential 100 #:base 2) - "1.1001x2^+06") + "1.1001*2^+06") (tc (~r #:notation 'exponential 1234 #:format-exponent "E") "1.234E+03") @@ -271,7 +271,7 @@ (tc (~r 3735928559 #:base '(up 16) #:precision 6 #:notation 'exponential) ;; note rounding! - "D.EADBEFx16^+07") + "D.EADBEF*16^+07") (tc (~r 33.99508664763296 #:precision 1 #:min-width 5) " 34")