- if SCM_CPLXP(x)
- if SCM_CPLXP(y)
- return scm_makdbl(SCM_REAL(x)*SCM_REAL(y)-SCM_IMAG(x)*SCM_IMAG(y),
- SCM_REAL(x)*SCM_IMAG(y)+SCM_IMAG(x)*SCM_REAL(y));
- else
- return scm_makdbl(SCM_REAL(x)*SCM_REALPART(y), SCM_IMAG(x)*SCM_REALPART(y));
- return scm_makdbl(SCM_REALPART(x)*SCM_REALPART(y),
- SCM_CPLXP(y)?SCM_REALPART(x)*SCM_IMAG(y):0.0);
+ if (SCM_CPLXP(x))
+ {
+ if (SCM_CPLXP(y))
+ return scm_makdbl (SCM_REAL (x) * SCM_REAL (y)
+ - SCM_IMAG (x) * SCM_IMAG (y),
+ SCM_REAL (x) * SCM_IMAG (y)
+ + SCM_IMAG (x) * SCM_REAL (y));
+ else
+ return scm_makdbl (SCM_REAL (x) * SCM_REALPART (y),
+ SCM_IMAG (x) * SCM_REALPART(y));
+ }
+ return scm_makdbl (SCM_REALPART (x) * SCM_REALPART (y),
+ SCM_CPLXP (y) ? SCM_REALPART (x) * SCM_IMAG (y) : 0.0);