21 |
|
|
22 |
#include "libguile/_scm.h" |
#include "libguile/_scm.h" |
23 |
#include "libguile/eval.h" |
#include "libguile/eval.h" |
24 |
|
#include "libguile/numbers.h" |
25 |
#include "libguile/stime.h" |
#include "libguile/stime.h" |
26 |
#include "libguile/stackchk.h" |
#include "libguile/stackchk.h" |
27 |
#include "libguile/struct.h" |
#include "libguile/struct.h" |
239 |
/* nothing else to do here since the mpz is in a double cell */ |
/* nothing else to do here since the mpz is in a double cell */ |
240 |
break; |
break; |
241 |
case scm_tc16_complex: |
case scm_tc16_complex: |
242 |
scm_gc_free (SCM_COMPLEX_MEM (scmptr), 2*sizeof (double), |
scm_gc_free (SCM_COMPLEX_MEM (scmptr), sizeof (scm_t_complex), |
243 |
"complex"); |
"complex"); |
244 |
break; |
break; |
245 |
default: |
default: |