mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* feature.c, feature.h (scm_reset_hook_x): New procedure.

Browse source 
(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.
This commit is contained in:
Mikael Djurfeldt 1998-11-26 07:44:22 +00:00
parent b90d369ecf
commit e845cb8486
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/feature.h
View file

@ -49,11 +49,12 @@
extern void scm_add_feature (char* str); extern void scm_add_feature (char* str);
extern SCM scm_program_arguments (void); extern SCM scm_program_arguments (void);
extern void scm_set_program_arguments (int argc, char **argv, char *first); extern void scm_set_program_arguments (int argc, char **argv, char *first);
extern SCM scm_make_hook (void); extern SCM scm_make_hook (SCM n_args);
extern SCM scm_make_named_hook (char* name); 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_add_hook_x (SCM hook, SCM thunk, SCM appendp);
extern SCM scm_remove_hook_x (SCM hook, SCM thunk); 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); extern void scm_init_feature (void);
#endif /* FEATUREH */ #endif /* FEATUREH */