diff --git a/libguile/ChangeLog b/libguile/ChangeLog index d059dccf2..735312da8 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2003-04-20 Dirk Herrmann + + * numbers.c (scm_logtest): Fixed argument bug in the call to + mpz_and, which showed up when compiling with SCM_DEBUG defined. + 2003-04-20 Dirk Herrmann * gc-card.c (scm_i_sweep_card, scm_i_init_card_freelist): Fixed diff --git a/libguile/numbers.c b/libguile/numbers.c index f54038721..8f89ecc2c 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -1073,7 +1073,7 @@ SCM_DEFINE (scm_logtest, "logtest", 2, 0, 0, SCM result; mpz_t result_z; mpz_init (result_z); - mpz_and (SCM_I_BIG_MPZ (result_z), + mpz_and (result_z, SCM_I_BIG_MPZ (j), SCM_I_BIG_MPZ (k)); scm_remember_upto_here_2 (j, k);