64 |
*/ |
*/ |
65 |
|
|
66 |
void |
void |
67 |
scm_c_hook_init (scm_t_c_hook *hook, void *hook_data, scm_t_c_hookype_t type) |
scm_c_hook_init (scm_t_c_hook *hook, void *hook_data, scm_t_c_hook_type type) |
68 |
{ |
{ |
69 |
hook->first = 0; |
hook->first = 0; |
70 |
hook->type = type; |
hook->type = type; |
114 |
scm_c_hook_run (scm_t_c_hook *hook, void *data) |
scm_c_hook_run (scm_t_c_hook *hook, void *data) |
115 |
{ |
{ |
116 |
scm_t_c_hook_entry *entry = hook->first; |
scm_t_c_hook_entry *entry = hook->first; |
117 |
scm_t_c_hookype_t type = hook->type; |
scm_t_c_hook_type type = hook->type; |
118 |
void *res = 0; |
void *res = 0; |
119 |
while (entry) |
while (entry) |
120 |
{ |
{ |