summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/ChangeLog5
-rw-r--r--libguile/ports.c3
2 files changed, 6 insertions, 2 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 4fdc5212a..4d0fe3625 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-01 Ludovic Courtès <ludo@gnu.org>
+
+ * ports.c (flush_output_port): Expect directly a port instead of
+ a pair. Fixes a bug in the new port table (2007-08-26).
+
2007-09-11 Kevin Ryde <user42@zip.com.au>
* posix.c (scm_putenv): Confine the putenv("NAME=") bit to mingw, use
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);
}