[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scm_modulo big==0
From: |
Kevin Ryde |
Subject: |
scm_modulo big==0 |
Date: |
Thu, 25 Mar 2004 10:09:29 +1000 |
User-agent: |
Gnus/5.110002 (No Gnus v0.2) Emacs/21.3 (gnu/linux) |
* numbers.c (scm_modulo): For inum/big and big/big, remove test of
big==0 since that never occurs.
--- numbers.c.~1.225.~ 2004-03-25 07:39:24.000000000 +1000
+++ numbers.c 2004-03-25 10:05:02.000000000 +1000
@@ -867,10 +867,6 @@
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 @@
}
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));
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- scm_modulo big==0,
Kevin Ryde <=