448 |
} |
} |
449 |
|
|
450 |
|
|
451 |
/* {Initialization for i/o types, float, bignum, the type of free cells} |
/* {Initialization for the type of free cells} |
452 |
*/ |
*/ |
453 |
|
|
454 |
static int |
static int |
491 |
scm_smobs[i].gsubr_type = 0; |
scm_smobs[i].gsubr_type = 0; |
492 |
} |
} |
493 |
|
|
494 |
/* WARNING: These scm_make_smob_type calls must be done in this order */ |
/* WARNING: This scm_make_smob_type call must be done first. */ |
495 |
tc = scm_make_smob_type ("free", 0); |
tc = scm_make_smob_type ("free", 0); |
496 |
scm_set_smob_print (tc, free_print); |
scm_set_smob_print (tc, free_print); |
|
|
|
|
tc = scm_make_smob_type ("big", 0); /* freed in gc */ |
|
|
scm_set_smob_print (tc, scm_bigprint); |
|
|
scm_set_smob_equalp (tc, scm_bigequal); |
|
|
|
|
|
tc = scm_make_smob_type ("real", 0); /* freed in gc */ |
|
|
scm_set_smob_print (tc, scm_print_real); |
|
|
scm_set_smob_equalp (tc, scm_real_equalp); |
|
|
|
|
|
tc = scm_make_smob_type ("complex", 0); /* freed in gc */ |
|
|
scm_set_smob_print (tc, scm_print_complex); |
|
|
scm_set_smob_equalp (tc, scm_complex_equalp); |
|
497 |
} |
} |
498 |
|
|
499 |
/* |
/* |