mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

* ports.c (scm_getc): minor tweak.

Browse source
This commit is contained in:
Rob Browning 2003-04-04 21:50:15 +00:00
parent d3e7e88dcb
commit aab1caadd3
1 changed files with 13 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

28
libguile/ports.c
View file

@ -924,10 +924,8 @@ scm_getc (SCM port)
scm_t_port *pt = SCM_PTAB_ENTRY (port); scm_t_port *pt = SCM_PTAB_ENTRY (port);
if (pt->rw_active == SCM_PORT_WRITE) if (pt->rw_active == SCM_PORT_WRITE)
{ /* may be marginally faster than calling scm_flush. */
/* may be marginally faster than calling scm_flush. */ scm_ptobs[SCM_PTOBNUM (port)].flush (port);
scm_ptobs[SCM_PTOBNUM (port)].flush (port);
}
if (pt->rw_random) if (pt->rw_random)
pt->rw_active = SCM_PORT_READ; pt->rw_active = SCM_PORT_READ;
@ -940,19 +938,19 @@ scm_getc (SCM port)
c = *(pt->read_pos++); c = *(pt->read_pos++);
if (c == '\n') switch (c)
{ {
SCM_INCLINE (port); case '\n':
SCM_INCLINE (port);
break;
case '\t':
SCM_TABCOL (port);
break;
default:
SCM_INCCOL (port);
break;
} }
else if (c == '\t')
{
SCM_TABCOL (port);
}
else
{
SCM_INCCOL (port);
}
return c; return c;
} }