mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

(scm_modulo): For inum/big and big/big, remove test of

Browse source 
big==0 since that never occurs.
This commit is contained in:
Kevin Ryde 2004-03-25 21:56:27 +00:00
parent d885e204fd
commit 1fff961089
1 changed files with 0 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/numbers.c
View file

@ -867,10 +867,6 @@ scm_modulo (SCM x, SCM y)
else if (SCM_BIGP (y))
{
int sgn_y = mpz_sgn (SCM_I_BIG_MPZ (y));
if (sgn_y == 0)
scm_num_overflow (s_modulo);
else
{
mpz_t z_x;
SCM result;
@ -933,10 +929,6 @@ scm_modulo (SCM x, SCM y)
}
else if (SCM_BIGP (y))
{
int sgn_y = mpz_sgn (SCM_I_BIG_MPZ (y));
if (sgn_y == 0)
scm_num_overflow (s_modulo);
else
{
SCM result = scm_i_mkbig ();
int y_sgn = mpz_sgn (SCM_I_BIG_MPZ (y));