mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

Changes from arch/CVS synchronization

Browse source
This commit is contained in:
Ludovic Courtès 2007-10-01 20:22:08 +00:00
parent ed0042dda7
commit 61d3568bff
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/ports.c
View file

@ -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);
}