mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

* hooks.c (scm_c_hook_add): Fixed bug in append mode.

Browse source
This commit is contained in:
Mikael Djurfeldt 2003-02-20 14:12:36 +00:00
parent 5abeba6894
commit 20c862d06e
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,3 +1,7 @@
2003-02-20 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* hooks.c (scm_c_hook_add): Fixed bug in append mode.
2003-02-05 Mikael Djurfeldt <djurfeldt@nada.kth.se> 2003-02-05 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* debug.c (scm_procedure_source): Handle all objects for which * debug.c (scm_procedure_source): Handle all objects for which

4
libguile/hooks.c
View file

@ -1,4 +1,4 @@
/* 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.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
* 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
@ -82,7 +82,7 @@ scm_c_hook_add (scm_t_c_hook *hook,
scm_t_c_hook_entry **loc = &hook->first; scm_t_c_hook_entry **loc = &hook->first;
if (appendp) if (appendp)
while (*loc) while (*loc)
*loc = (*loc)->next; loc = &(*loc)->next;
entry->next = *loc; entry->next = *loc;
entry->func = func; entry->func = func;
entry->data = func_data; entry->data = func_data;