Parent Directory | Revision Log | 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 | { | { |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |