mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +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

5
libguile/ChangeLog
View file

@ -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> 2007-09-11 Kevin Ryde <user42@zip.com.au>
* posix.c (scm_putenv): Confine the putenv("NAME=") bit to mingw, use * posix.c (scm_putenv): Confine the putenv("NAME=") bit to mingw, use

3
libguile/ports.c
View file

@ -904,9 +904,8 @@ SCM_DEFINE (scm_force_output, "force-output", 0, 1, 0,
static void 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)) if (SCM_OPOUTPORTP (port))
scm_flush (port); scm_flush (port);
} }