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

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

diff --git a/libguile/load.c b/libguile/load.c
index 3f6fff0..8cb726a 100644 (file)
--- a/libguile/load.c
+++ b/libguile/load.c
@@ -119,7 +119,7 @@ SCM_DEFINE (scm_primitive_load, "primitive-load", 1, 0, 0,
                    SCM_EOL);
 
   if (! SCM_FALSEP (hook))
-    scm_apply (hook, SCM_LIST1 (filename), SCM_EOL);
+    scm_call_1 (hook, filename);
 
   { /* scope */
     SCM port, save_port;