diff options
Diffstat (limited to 'libguile/gc-card.c')
-rw-r--r-- | libguile/gc-card.c | 3 |
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: |