/[guile]/guile/guile-core/libguile/fports.c
ViewVC logotype

Diff of /guile/guile-core/libguile/fports.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.115 by hanwen, Thu Aug 8 23:02:28 2002 UTC revision 1.116 by hanwen, Fri Aug 16 22:01:09 2002 UTC
# Line 220  scm_evict_ports (int fd) Line 220  scm_evict_ports (int fd)
220  {  {
221    long i;    long i;
222    
223    for (i = 0; i < scm_port_table_size; i++)    for (i = 0; i < scm_i_port_table_size; i++)
224      {      {
225        SCM port = scm_port_table[i]->port;        SCM port = scm_i_port_table[i]->port;
226    
227        if (SCM_FPORTP (port))        if (SCM_FPORTP (port))
228          {          {

Legend:
Removed from v.1.115  
changed lines
  Added in v.1.116

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26