summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1999-08-05 12:08:01 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1999-08-05 12:08:01 +0000
commitef1ae5630ac9add7f540c02c82c695c55785a713 (patch)
treead479fb2e3ee8aab9d64c10c5763e7552f0c3fec
parent1777c18bc18b26f41037dc73e5d9400d7e55bc2a (diff)
downloadguile-ef1ae5630ac9add7f540c02c82c695c55785a713.tar.gz
* feature.c, feature.h (scm_c_run_hook): Added.
-rw-r--r--libguile/feature.c8
-rw-r--r--libguile/feature.h1
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 */