diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-11-26 07:44:22 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-11-26 07:44:22 +0000 |
commit | e845cb8486b4fba59f9bb8b051f3a5e1dd76fcb9 (patch) | |
tree | 22ad9c50ce76137a21fe322d61814571102e9e36 /libguile/feature.h | |
parent | b90d369ecff6f6b1ce929a794c828fa16be28d93 (diff) | |
download | guile-e845cb8486b4fba59f9bb8b051f3a5e1dd76fcb9.tar.gz |
* feature.c, feature.h (scm_reset_hook_x): New procedure.
(scm_make_hook): Optional argument defines number of arguments to
the hook.
(scm_make_named_hook): Take number of args as second arg.
(scm_run_hook): Renamed from scm_run_hooks (old name kept for a
while); First arg is the hook. The rest are arguments passed on
to the hook procedures.
Diffstat (limited to 'libguile/feature.h')
-rw-r--r-- | libguile/feature.h | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libguile/feature.h b/libguile/feature.h index aec777254..72c10f12e 100644 --- a/libguile/feature.h +++ b/libguile/feature.h @@ -49,11 +49,12 @@ extern void scm_add_feature (char* str); extern SCM scm_program_arguments (void); extern void scm_set_program_arguments (int argc, char **argv, char *first); -extern SCM scm_make_hook (void); -extern SCM scm_make_named_hook (char* name); +extern SCM scm_make_hook (SCM n_args); +extern SCM scm_make_named_hook (char* name, int n_args); extern SCM scm_add_hook_x (SCM hook, SCM thunk, SCM appendp); extern SCM scm_remove_hook_x (SCM hook, SCM thunk); -extern SCM scm_run_hooks (SCM hooks); +extern SCM scm_reset_hook_x (SCM hook); +extern SCM scm_run_hook (SCM hook, SCM args); extern void scm_init_feature (void); #endif /* FEATUREH */ |