92 |
((SCM_OBJ_CLASS_FLAGS (obj) & SCM_CLASSF_ENTITY) != 0) |
((SCM_OBJ_CLASS_FLAGS (obj) & SCM_CLASSF_ENTITY) != 0) |
93 |
#define SCM_ENTITY_PROCEDURE(obj) \ |
#define SCM_ENTITY_PROCEDURE(obj) \ |
94 |
(SCM_PACK (SCM_STRUCT_DATA (obj) [scm_struct_i_procedure])) |
(SCM_PACK (SCM_STRUCT_DATA (obj) [scm_struct_i_procedure])) |
95 |
#define SCM_SET_ENTITY_PROCEDURE(obj,v) \ |
#define SCM_SET_ENTITY_PROCEDURE(obj, v) \ |
96 |
(SCM_STRUCT_DATA (obj) [scm_struct_i_procedure] = SCM_UNPACK (v)) |
(SCM_STRUCT_DATA (obj) [scm_struct_i_procedure] = SCM_UNPACK (v)) |
97 |
#define SCM_ENTITY_SETTER(obj) (SCM_PACK (SCM_STRUCT_DATA (obj)[scm_struct_i_setter])) |
#define SCM_ENTITY_SETTER(obj) (SCM_PACK (SCM_STRUCT_DATA (obj)[scm_struct_i_setter])) |
98 |
#define SCM_SET_ENTITY_SETTER(obj, v) \ |
#define SCM_SET_ENTITY_SETTER(obj, v) \ |