mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

(scm_modular_expt): Return a negative remainder for a

Browse source 
negative divisor, the same as `modulo' does.
This commit is contained in:
Kevin Ryde 2004-03-25 21:51:39 +00:00
parent d6628681cd
commit b7b8c57576
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/numbers.c
View file

@ -1626,6 +1626,10 @@ SCM_DEFINE (scm_modular_expt, "modulo-expt", 3, 0, 0,
n_tmp, n_tmp,
k_tmp, k_tmp,
m_tmp); m_tmp);
if (mpz_sgn (m_tmp) < 0 && mpz_sgn (SCM_I_BIG_MPZ (result)) != 0)
mpz_add (SCM_I_BIG_MPZ (result), SCM_I_BIG_MPZ (result), m_tmp);
cleanup: cleanup:
mpz_clear (m_tmp); mpz_clear (m_tmp);
mpz_clear (k_tmp); mpz_clear (k_tmp);