mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

Formatting tweaks.

Browse source
This commit is contained in:
Jim Blandy 1998-10-06 20:57:10 +00:00
parent 2d0937bc84
commit 3e877d1576
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ports.c
View file

@ -521,11 +521,12 @@ scm_force_output (port)
SCM port;
{
if (SCM_UNBNDP (port))
port = scm_cur_outp;
port = scm_cur_outp;
else
{
port = SCM_COERCE_OUTPORT (port);
SCM_ASSERT (SCM_NIMP (port) && SCM_OPOUTPORTP (port), port, SCM_ARG1, s_force_output);
SCM_ASSERT (SCM_NIMP (port) && SCM_OPOUTPORTP (port), port, SCM_ARG1,
s_force_output);
}
{
scm_sizet i = SCM_PTOBNUM (port);