468 |
|
|
469 |
/* Definitions for tc16: */ |
/* Definitions for tc16: */ |
470 |
#define SCM_TYP16(x) (0xffff & SCM_CELL_TYPE (x)) |
#define SCM_TYP16(x) (0xffff & SCM_CELL_TYPE (x)) |
|
#define SCM_TYP16S(x) (0xfeff & SCM_CELL_TYPE (x)) |
|
|
|
|
471 |
#define SCM_TYP16_PREDICATE(tag, x) (!SCM_IMP (x) && SCM_TYP16 (x) == (tag)) |
#define SCM_TYP16_PREDICATE(tag, x) (!SCM_IMP (x) && SCM_TYP16 (x) == (tag)) |
472 |
|
|
473 |
|
|
474 |
/* Here is the first smob subtype. */ |
/* Here is the first smob subtype. */ |
475 |
|
|
476 |
/* scm_tc_free_cell is the 0th smob type. We place this in free cells to tell |
/* scm_tc_free_cell is the 0th smob type. We place this in free cells to tell |