/[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.201 by dirk, Wed Sep 17 21:03:25 2003 UTC revision 1.202 by dirk, Thu Sep 18 20:18:17 2003 UTC
# Line 2510  scm_make_complex (double x, double y) Line 2510  scm_make_complex (double x, double y)
2510    else    else
2511      {      {
2512        SCM z;        SCM z;
2513        SCM_NEWSMOB (z, scm_tc16_complex, scm_gc_malloc (2*sizeof (double),        SCM_NEWSMOB (z, scm_tc16_complex, scm_gc_malloc (sizeof (scm_t_complex),
2514                                                         "complex"));                                                         "complex"));
2515        SCM_COMPLEX_REAL (z) = x;        SCM_COMPLEX_REAL (z) = x;
2516        SCM_COMPLEX_IMAG (z) = y;        SCM_COMPLEX_IMAG (z) = y;

Legend:
Removed from v.1.201  
changed lines
  Added in v.1.202

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