From 61d3568bff4e75d52847e9cfa24f5a83bca9ef56 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 1 Oct 2007 20:22:08 +0000 Subject: [PATCH] Changes from arch/CVS synchronization --- libguile/ChangeLog | 5 +++++ libguile/ports.c | 3 +-- 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 + + * 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 * 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); }