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_product): In complex * bignum, correction to

Browse source 
REAL/IMAG fetch, x is the complex, not y.
This commit is contained in:
Kevin Ryde 2003-07-17 23:38:34 +00:00
parent e7cc532b32
commit 7650633547
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/numbers.c
View file

@ -3574,8 +3574,8 @@ scm_product (SCM x, SCM y)
{ {
double z = mpz_get_d (SCM_I_BIG_MPZ (y)); double z = mpz_get_d (SCM_I_BIG_MPZ (y));
scm_remember_upto_here_1 (y); scm_remember_upto_here_1 (y);
return scm_make_complex (z * SCM_COMPLEX_REAL (y), return scm_make_complex (z * SCM_COMPLEX_REAL (x),
z * SCM_COMPLEX_IMAG (y)); z * SCM_COMPLEX_IMAG (x));
} }
else if (SCM_REALP (y)) else if (SCM_REALP (y))
return scm_make_complex (SCM_REAL_VALUE (y) * SCM_COMPLEX_REAL (x), return scm_make_complex (SCM_REAL_VALUE (y) * SCM_COMPLEX_REAL (x),