From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 23 Feb 2014 17:10:24 +0000 (+0000)
Subject: Use FLO:NEGATE, not (FLO:- 0. ...), to apply sign in NUMBER->STRING.
X-Git-Tag: release-9.2.0~35
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1bb75964f069a2e6857545a5e232cbfede939a0e;p=mit-scheme.git

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 e42460229..7da8450b6 100644
--- 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))))