Use FLO:NEGATE, not (FLO:- 0. ...), to apply sign in NUMBER->STRING.

diff --git a/src/runtime/numpar.scm b/src/runtime/numpar.scm
index e4246022968c569c0200eb06b91e11a60eec541d..7da8450b614ed529f11072a8e5a07034a7985bba 100644 (file)
--- a/src/runtime/numpar.scm
+++ b/src/runtime/numpar.scm
@@ -352,8 +352,8 @@ USA.
        (define-integrable (finish-flonum x power-of-10)
          (if (eq? #\- sign)
              (if (eq? exponent abs-exponent)
-                 (flo:- 0. (flo:* x power-of-10))
-                 (flo:- 0. (flo:/ x power-of-10)))
+                 (flo:negate (flo:* x power-of-10))
+                 (flo:negate (flo:/ x power-of-10)))
              (if (eq? exponent abs-exponent)
                  (flo:* x power-of-10)
                  (flo:/ x power-of-10))))