* scm_modulo big==0
@ 2004-03-25 0:09 Kevin Ryde
0 siblings, 0 replies; only message in thread
From: Kevin Ryde @ 2004-03-25 0:09 UTC (permalink / raw)
[-- Attachment #1: Type: text/plain, Size: 116 bytes --]
* numbers.c (scm_modulo): For inum/big and big/big, remove test of
big==0 since that never occurs.
[-- Attachment #2: numbers.c.modulo-big-0.diff --]
[-- Type: text/plain, Size: 584 bytes --]
--- 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));
[-- Attachment #3: Type: text/plain, Size: 142 bytes --]
_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/guile-devel
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2004-03-25 0:09 UTC | newest]
Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2004-03-25 0:09 scm_modulo big==0 Kevin Ryde
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).