[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/03: Simplify scm_abs for the real case
From: |
Daniel Llorens |
Subject: |
[Guile-commits] 01/03: Simplify scm_abs for the real case |
Date: |
Mon, 10 Jan 2022 08:18:22 -0500 (EST) |
lloda pushed a commit to branch wip-inline-digits
in repository guile.
commit c63ee2d0a11eea37481a829484fe13e494f02133
Author: Daniel Llorens <lloda@sarc.name>
AuthorDate: Mon Jan 10 12:21:26 2022 +0100
Simplify scm_abs for the real case
* libguile/numbers.c (scm_abs): As stated. When x is a nan with the sign bit
set, this changes the behavior of (magnitude x) back to what it was in
3.0.7,
to clear that bit.
---
libguile/numbers.c | 12 +-----------
1 file changed, 1 insertion(+), 11 deletions(-)
diff --git a/libguile/numbers.c b/libguile/numbers.c
index 9ff870aa7..1a96d9c8c 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -658,17 +658,7 @@ SCM_PRIMITIVE_GENERIC (scm_abs, "abs", 1, 0, 0,
if (SCM_I_INUMP (x))
return scm_integer_abs_i (SCM_I_INUM (x));
else if (SCM_LIKELY (SCM_REALP (x)))
- {
- double xx = SCM_REAL_VALUE (x);
- /* If x is a NaN then xx<0 is false so we return x unchanged */
- if (xx < 0.0)
- return scm_i_from_double (-xx);
- /* Handle signed zeroes properly */
- else if (SCM_UNLIKELY (xx == 0.0))
- return flo0;
- else
- return x;
- }
+ return scm_i_from_double (copysign (SCM_REAL_VALUE (x), 1.0));
else if (SCM_BIGP (x))
return scm_integer_abs_z (scm_bignum (x));
else if (SCM_FRACTIONP (x))