/[guile]/guile/guile-core/libguile/numbers.c
ViewVC logotype

Diff of /guile/guile-core/libguile/numbers.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.194 by mdj, Sun Jul 13 16:13:57 2003 UTC revision 1.195 by kryde, Thu Jul 17 23:38:34 2003 UTC
# Line 3574  scm_product (SCM x, SCM y) Line 3574  scm_product (SCM x, SCM y)
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),

Legend:
Removed from v.1.194  
changed lines
  Added in v.1.195

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26