mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

Remove last non-admin SCM_I_BIG_MPZ uses in numbers.c

Browse source 
* libguile/numbers.c (scm_magnitude, scm_angle): Use integers lib.
This commit is contained in:
Andy Wingo 2022-01-07 11:21:41 +01:00
parent a4524da8c1
commit 3d56a90736
1 changed files with 4 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/numbers.c
View file

@ -6327,10 +6327,8 @@ SCM_PRIMITIVE_GENERIC (scm_magnitude, "magnitude", 1, 0, 0,
}
else if (SCM_BIGP (z))
{
int sgn = mpz_sgn (SCM_I_BIG_MPZ (z));
scm_remember_upto_here_1 (z);
if (sgn < 0)
return scm_i_clonebig (z, 0);
if (scm_is_integer_negative_z (scm_bignum (z)))
return scm_integer_negate_z (scm_bignum (z));
else
return z;
}
@ -6371,9 +6369,7 @@ SCM_PRIMITIVE_GENERIC (scm_angle, "angle", 1, 0, 0,
}
else if (SCM_BIGP (z))
{
int sgn = mpz_sgn (SCM_I_BIG_MPZ (z));
scm_remember_upto_here_1 (z);
if (sgn < 0)
if (scm_is_integer_negative_z (scm_bignum (z)))
return scm_i_from_double (atan2 (0.0, -1.0));
else
return flo0;