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

Correct all instances of scm_t_c_hookype_t to scm_t_c_hook_type.

Browse source
This commit is contained in:
Neil Jerram 2002-03-16 14:07:27 +00:00
parent d6b977a640
commit b9dfb68494
3 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/ChangeLog
View file

@ -1,5 +1,8 @@
2002-03-16 Neil Jerram <neil@ossau.uklinux.net> 2002-03-16 Neil Jerram <neil@ossau.uklinux.net>
* hooks.c (scm_t_c_hookype_t), hooks.h (scm_t_c_hookype_t):
Corrected everywhere to `scm_t_c_hook_type'.
* filesys.c (scm_close): Fix stale cross reference in docstring. * filesys.c (scm_close): Fix stale cross reference in docstring.
2002-03-15 Thien-Thi Nguyen <ttn@giblet.glug.org> 2002-03-15 Thien-Thi Nguyen <ttn@giblet.glug.org>

4
libguile/hooks.c
View file

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

8
libguile/hooks.h
View file

@ -56,11 +56,11 @@
* both may want to indicate success/failure and return a result. * both may want to indicate success/failure and return a result.
*/ */
typedef enum scm_t_c_hookype_t { typedef enum scm_t_c_hook_type {
SCM_C_HOOK_NORMAL, SCM_C_HOOK_NORMAL,
SCM_C_HOOK_OR, SCM_C_HOOK_OR,
SCM_C_HOOK_AND SCM_C_HOOK_AND
} scm_t_c_hookype_t; } scm_t_c_hook_type;
typedef void *(*scm_t_c_hook_function) (void *hook_data, typedef void *(*scm_t_c_hook_function) (void *hook_data,
void *func_data, void *func_data,
@ -74,13 +74,13 @@ typedef struct scm_t_c_hook_entry {
typedef struct scm_t_c_hook { typedef struct scm_t_c_hook {
scm_t_c_hook_entry *first; scm_t_c_hook_entry *first;
scm_t_c_hookype_t type; scm_t_c_hook_type type;
void *data; void *data;
} scm_t_c_hook; } scm_t_c_hook;
extern void scm_c_hook_init (scm_t_c_hook *hook, extern void scm_c_hook_init (scm_t_c_hook *hook,
void *hook_data, void *hook_data,
scm_t_c_hookype_t type); scm_t_c_hook_type type);
extern void scm_c_hook_add (scm_t_c_hook *hook, extern void scm_c_hook_add (scm_t_c_hook *hook,
scm_t_c_hook_function func, scm_t_c_hook_function func,
void *func_data, void *func_data,