diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-08-05 12:08:01 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-08-05 12:08:01 +0000 |
commit | ef1ae5630ac9add7f540c02c82c695c55785a713 (patch) | |
tree | ad479fb2e3ee8aab9d64c10c5763e7552f0c3fec | |
parent | 1777c18bc18b26f41037dc73e5d9400d7e55bc2a (diff) | |
download | guile-ef1ae5630ac9add7f540c02c82c695c55785a713.tar.gz |
* feature.c, feature.h (scm_c_run_hook): Added.
-rw-r--r-- | libguile/feature.c | 8 | ||||
-rw-r--r-- | libguile/feature.h | 1 |
2 files changed, 8 insertions, 1 deletions
diff --git a/libguile/feature.c b/libguile/feature.c index 3f9ffab74..690a040f7 100644 --- a/libguile/feature.c +++ b/libguile/feature.c @@ -194,10 +194,16 @@ scm_run_hook (SCM hook, SCM args) scm_misc_error (s_add_hook_x, "This hook requires %s arguments", SCM_LIST1 (SCM_CADR (hook))); + scm_c_run_hook (hook, args); + return SCM_UNSPECIFIED; +} + +void +scm_c_run_hook (SCM hook, SCM args) +{ hook = SCM_CDR (hook); while (SCM_NIMP (hook = SCM_CDR (hook))) scm_apply (SCM_CAR (hook), args, SCM_EOL); - return SCM_UNSPECIFIED; } diff --git a/libguile/feature.h b/libguile/feature.h index 5879945be..5e33470c3 100644 --- a/libguile/feature.h +++ b/libguile/feature.h @@ -55,6 +55,7 @@ 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_reset_hook_x (SCM hook); extern SCM scm_run_hook (SCM hook, SCM args); +extern void scm_c_run_hook (SCM hook, SCM args); extern void scm_init_feature (void); #endif /* FEATUREH */ |