From 1bb75964f069a2e6857545a5e232cbfede939a0e Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 23 Feb 2014 17:10:24 +0000 Subject: [PATCH] Use FLO:NEGATE, not (FLO:- 0. ...), to apply sign in NUMBER->STRING. --- src/runtime/numpar.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)))) -- 2.25.1