Avoid non-ascii character in numeric formats.

This commit is contained in:
Eli Barzilay 2013-04-02 19:39:17 -04:00
parent a1e31f2f68
commit 448a62eae4

View File

@ -318,7 +318,7 @@
(string-append
(cond [(string? format-exponent) format-exponent]
[(= base 10) "e"]
[else (format "×~s^" base)])
[else (format "x~s^" base)])
(if (negative? exponent) "-" "+")
(%pad (number->string (abs exponent))
#:pad-to 2