* feature.c, feature.h (scm_c_run_hook): Added.

diff --git a/libguile/feature.c b/libguile/feature.c
index 3f9ffab..690a040 100644 (file)
--- 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;
 }
 
 \f

diff --git a/libguile/feature.h b/libguile/feature.h
index 5879945..5e33470 100644 (file)
--- 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 */