/[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.27 by xxhanwen, Sat Jul 20 14:08:33 2002 UTC revision 1.28 by mdj, Wed Feb 19 15:04:50 2003 UTC
# Line 1  Line 1 
1  /* Copyright (C) 1995,1996,1998,1999,2000,2001 Free Software Foundation, Inc.  /* Copyright (C) 1995,1996,1998,1999,2000,2001, 2003 Free Software Foundation, Inc.
2   *   *
3   * This program is free software; you can redistribute it and/or modify   * This program is free software; you can redistribute it and/or modify
4   * it under the terms of the GNU General Public License as published by   * it under the terms of the GNU General Public License as published by
# Line 81  scm_c_hook_add (scm_t_c_hook *hook, Line 81  scm_c_hook_add (scm_t_c_hook *hook,
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)
84        *loc = (*loc)->next;        loc = &(*loc)->next;
85    entry->next = *loc;    entry->next = *loc;
86    entry->func = func;    entry->func = func;
87    entry->data = func_data;    entry->data = func_data;

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

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