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

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

diff --git a/libguile/environments.c b/libguile/environments.c
index ea6230b..58a4cff 100644 (file)
--- a/libguile/environments.c
+++ b/libguile/environments.c
@@ -1613,7 +1613,7 @@ import_environment_conflict (SCM env, SCM sym, SCM imports)
   SCM conflict_proc = IMPORT_ENVIRONMENT (env)->conflict_proc;
   SCM args = scm_cons2 (env, sym, scm_cons (imports, SCM_EOL));
 
-  return scm_apply (conflict_proc, args, SCM_EOL);
+  return scm_apply_0 (conflict_proc, args);
 }