diff options
Diffstat (limited to 'libguile/ports.c')
-rw-r--r-- | libguile/ports.c | 3 |
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); } |