77 |
void *func_data, |
void *func_data, |
78 |
int appendp) |
int appendp) |
79 |
{ |
{ |
80 |
scm_t_c_hook_entry *entry = scm_must_malloc (sizeof (scm_t_c_hook_entry), |
scm_t_c_hook_entry *entry = scm_malloc (sizeof (scm_t_c_hook_entry)); |
|
"C level hook entry"); |
|
81 |
scm_t_c_hook_entry **loc = &hook->first; |
scm_t_c_hook_entry **loc = &hook->first; |
82 |
if (appendp) |
if (appendp) |
83 |
while (*loc) |
while (*loc) |
100 |
{ |
{ |
101 |
scm_t_c_hook_entry *entry = *loc; |
scm_t_c_hook_entry *entry = *loc; |
102 |
*loc = (*loc)->next; |
*loc = (*loc)->next; |
103 |
scm_must_free (entry); |
free (entry); |
104 |
return; |
return; |
105 |
} |
} |
106 |
loc = &(*loc)->next; |
loc = &(*loc)->next; |