* eval.c (scm_call_0, scm_call_1, scm_call_2, scm_call_3,

[bpt/guile.git] / libguile / hooks.c

diff --git a/libguile/hooks.c b/libguile/hooks.c
index f0713f5..120ef12 100644 (file)
--- a/libguile/hooks.c
+++ b/libguile/hooks.c
@@ -307,7 +307,7 @@ scm_c_run_hook (SCM hook, SCM args)
   SCM procs = SCM_HOOK_PROCEDURES (hook);
   while (SCM_NIMP (procs))
     {
-      scm_apply (SCM_CAR (procs), args, SCM_EOL);
+      scm_apply_0 (SCM_CAR (procs), args);
       procs = SCM_CDR (procs);
     }
 }