From 1fff961089756802a8154f4430d6fe1222a7bfed Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Thu, 25 Mar 2004 21:56:27 +0000 Subject: [PATCH] (scm_modulo): For inum/big and big/big, remove test of big==0 since that never occurs. --- libguile/numbers.c | 8 -------- 1 file changed, 8 deletions(-) diff --git a/libguile/numbers.c b/libguile/numbers.c index 82b890dda..6023f70aa 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -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));