diff options
author | Michael Livshin <mlivshin@bigfoot.com> | 2001-05-28 14:18:35 +0000 |
---|---|---|
committer | Michael Livshin <mlivshin@bigfoot.com> | 2001-05-28 14:18:35 +0000 |
commit | fde504077bf4f73e3f9983de6ae8599d3fbb8895 (patch) | |
tree | 61f5da144f8c1ae4b7262afadc4c94792f41eaf8 /libguile/hooks.h | |
parent | dd85ce4758260f712d0efc806df6643aca8e3b74 (diff) | |
download | guile-fde504077bf4f73e3f9983de6ae8599d3fbb8895.tar.gz |
* hooks.c (scm_create_hook): deprecated.
(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.
Diffstat (limited to 'libguile/hooks.h')
-rw-r--r-- | libguile/hooks.h | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/libguile/hooks.h b/libguile/hooks.h index 216d63062..ff9d9d5d4 100644 --- a/libguile/hooks.h +++ b/libguile/hooks.h @@ -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 */ /* |