3574 |
{ |
{ |
3575 |
double z = mpz_get_d (SCM_I_BIG_MPZ (y)); |
double z = mpz_get_d (SCM_I_BIG_MPZ (y)); |
3576 |
scm_remember_upto_here_1 (y); |
scm_remember_upto_here_1 (y); |
3577 |
return scm_make_complex (z * SCM_COMPLEX_REAL (y), |
return scm_make_complex (z * SCM_COMPLEX_REAL (x), |
3578 |
z * SCM_COMPLEX_IMAG (y)); |
z * SCM_COMPLEX_IMAG (x)); |
3579 |
} |
} |
3580 |
else if (SCM_REALP (y)) |
else if (SCM_REALP (y)) |
3581 |
return scm_make_complex (SCM_REAL_VALUE (y) * SCM_COMPLEX_REAL (x), |
return scm_make_complex (SCM_REAL_VALUE (y) * SCM_COMPLEX_REAL (x), |