Parent Directory | Revision Log | 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; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |