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

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

diff --git a/libguile/ports.c b/libguile/ports.c
index 49902d7..0dddda8 100644 (file)
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -732,7 +732,7 @@ SCM_DEFINE (scm_port_for_each, "port-for-each", 1, 0, 0,
 
   while (ports != SCM_EOL)
     {
-      scm_apply (proc, scm_cons (SCM_CAR (ports), SCM_EOL), SCM_EOL);
+      scm_call_1 (proc, SCM_CAR (ports));
       ports = SCM_CDR (ports);
     }