mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* numbers.c (scm_divbigint): When the remainder is zero, we don't

Browse source 
want to subtract it from the modulus; we just want to leave it
alone.
This commit is contained in:
Jim Blandy 1996-10-10 01:12:02 +00:00
parent fb21f20278
commit 604b0844c5
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/numbers.c
View file

@ -1192,7 +1192,7 @@ scm_divbigint(x, z, sgn, mode)
register SCM_BIGDIG *ds = SCM_BDIGITS(x);
scm_sizet nd = SCM_NUMDIGS(x);
while(nd--) t2 = (SCM_BIGUP(t2) + ds[nd]) % z;
if (mode) t2 = z - t2;
if (mode && t2) t2 = z - t2;
return SCM_MAKINUM(sgn ? -t2 : t2);
}
{