summaryrefslogtreecommitdiff
path: root/libguile/ports.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/ports.c')
-rw-r--r--libguile/ports.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/ports.c b/libguile/ports.c
index aa05bd9b1..6cb77966e 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -904,9 +904,8 @@ SCM_DEFINE (scm_force_output, "force-output", 0, 1, 0,
static void
-flush_output_port (void *closure, SCM handle)
+flush_output_port (void *closure, SCM port)
{
- SCM port = SCM_CDR (handle);
if (SCM_OPOUTPORTP (port))
scm_flush (port);
}