guile-devel
[Top][All Lists]
Advanced

[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));

reply via email to

[Prev in Thread] Current Thread [Next in Thread]