mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +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>
* 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.
2002-03-15 Thien-Thi Nguyen <ttn@giblet.glug.org>

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;
@ -114,7 +114,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)
{

8
libguile/hooks.h
View file

@ -56,11 +56,11 @@
* 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_OR,
SCM_C_HOOK_AND
} scm_t_c_hookype_t;
} scm_t_c_hook_type;
typedef void *(*scm_t_c_hook_function) (void *hook_data,
void *func_data,
@ -74,13 +74,13 @@ typedef struct scm_t_c_hook_entry {
typedef struct scm_t_c_hook {
scm_t_c_hook_entry *first;
scm_t_c_hookype_t type;
scm_t_c_hook_type type;
void *data;
} scm_t_c_hook;
extern void scm_c_hook_init (scm_t_c_hook *hook,
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,
scm_t_c_hook_function func,
void *func_data,