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

* Manual updates on hooks and features.

Browse source 
* Fix scm_t_c_hookype_t corruption.
This commit is contained in:
Neil Jerram 2002-03-16 00:27:25 +00:00
parent b193d130d8
commit 387d418c55
8 changed files with 429 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/hooks.c
View file

@ -64,7 +64,7 @@
*/
void
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)
{
hook->first = 0;
hook->type = type;
@ -113,7 +113,7 @@ void *
scm_c_hook_run (scm_t_c_hook *hook, void *data)
{
scm_t_c_hook_entry *entry = hook->first;
scm_t_c_hookype_t type = hook->type;
scm_t_c_hook_type type = hook->type;
void *res = 0;
while (entry)
{