From a7c930f19c943082cdac0f041c1e339ea9c68c64 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sat, 31 Jul 1999 09:05:02 +0000 Subject: [PATCH] * numbers.c (scm_makdbl): Bugfix: Initialize imaginary part. (Thanks to Lorentey Karoly.) --- libguile/numbers.c | 1 + 1 file changed, 1 insertion(+) diff --git a/libguile/numbers.c b/libguile/numbers.c index d8b6950e5..34aaf411e 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -2471,6 +2471,7 @@ scm_makdbl (x, y) else { SCM_NEWSMOB(z,scm_tc_dblc,scm_must_malloc (2L * sizeof (double), "comkplex")); + SCM_IMAG (z) = y; } SCM_REAL (z) = x; SCM_ALLOW_INTS;