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_create_hook): deprecated.

Browse source 
(make_hook): deleted.
(scm_make_hook): all the hook creation code is now here.

* gc.c (scm_init_gc): don't call `scm_create_hook'.  instead make
a hook, make it permanent, and do a `scm_c_define' on it.
This commit is contained in:
Michael Livshin 2001-05-28 14:18:35 +00:00
parent dd85ce4758
commit fde504077b
4 changed files with 31 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/hooks.h
View file

@ -104,7 +104,6 @@ extern scm_bits_t scm_tc16_hook;
#define SCM_SET_HOOK_PROCEDURES(hook, procs) SCM_SET_CELL_OBJECT_1 ((hook), (procs))
extern SCM scm_make_hook (SCM n_args);
extern SCM scm_create_hook (const char* name, int n_args);
extern SCM scm_hook_p (SCM x);
extern SCM scm_hook_empty_p (SCM hook);
extern SCM scm_add_hook_x (SCM hook, SCM thunk, SCM appendp);
@ -115,6 +114,10 @@ extern void scm_c_run_hook (SCM hook, SCM args);
extern SCM scm_hook_to_list (SCM hook);
extern void scm_init_hooks (void);
#if (SCM_DEBUG_DEPRECATED == 0)
extern SCM scm_create_hook (const char* name, int n_args);
#endif
#endif /* SCM_HOOKS_H */
/*