/[guile]/guile/guile-core/libguile/hooks.c
ViewVC logotype

Diff of /guile/guile-core/libguile/hooks.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by dirk, Fri Aug 31 12:13:50 2001 UTC revision 1.24 by mvo, Mon Feb 11 18:06:49 2002 UTC
# Line 77  scm_c_hook_add (scm_t_c_hook *hook, Line 77  scm_c_hook_add (scm_t_c_hook *hook,
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)
# Line 101  scm_c_hook_remove (scm_t_c_hook *hook, Line 100  scm_c_hook_remove (scm_t_c_hook *hook,
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;

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26