summaryrefslogtreecommitdiff
path: root/libguile/gc-card.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/gc-card.c')
-rw-r--r--libguile/gc-card.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/gc-card.c b/libguile/gc-card.c
index 3939417d3..26fd425d5 100644
--- a/libguile/gc-card.c
+++ b/libguile/gc-card.c
@@ -21,6 +21,7 @@
#include "libguile/_scm.h"
#include "libguile/eval.h"
+#include "libguile/numbers.h"
#include "libguile/stime.h"
#include "libguile/stackchk.h"
#include "libguile/struct.h"
@@ -238,7 +239,7 @@ scm_i_sweep_card (scm_t_cell * p, SCM *free_list, scm_t_heap_segment*seg)
/* nothing else to do here since the mpz is in a double cell */
break;
case scm_tc16_complex:
- scm_gc_free (SCM_COMPLEX_MEM (scmptr), 2*sizeof (double),
+ scm_gc_free (SCM_COMPLEX_MEM (scmptr), sizeof (scm_t_complex),
"complex");
break;
default: