mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

Utterly needless cleanups to hopelessly messy code.

Browse source 
* ports.c: Doc fixes.
(scm_fflush): Moved to ...
* genio.c (scm_fflush): ... here, amongst all the other port
method invocation functions.
* genio.h, ports.h: The prototype moves too.
This commit is contained in:
Jim Blandy 1998-10-05 21:04:15 +00:00
parent 71f2053493
commit d68fee4833
4 changed files with 33 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/genio.c
View file

@ -90,6 +90,14 @@ scm_lfwrite (ptr, size, port)
}
void
scm_fflush (port)
SCM port;
{
scm_sizet i = SCM_PTOBNUM (port);
(scm_ptobs[i].fflush) (SCM_STREAM (port));
}
int