diff options
| author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2002-08-16 22:01:10 +0000 |
|---|---|---|
| committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2002-08-16 22:01:10 +0000 |
| commit | 67329a9eefdcfae7ccee5ba2afc783e30dacdae2 (patch) | |
| tree | 62f268f12a88c3f969ad26f6ab0a9929eff71706 /libguile/ioext.c | |
| parent | f07c886abbde77c62528981137406da88cf2f055 (diff) | |
| download | guile-67329a9eefdcfae7ccee5ba2afc783e30dacdae2.tar.gz | |
* mallocs.c (scm_malloc_obj): use scm_gc_malloc in stead of
malloc.
* gc-segment.c (scm_i_get_new_heap_segment): remove cluster cruft:
only use SCM_MIN_HEAP_SEG_SIZE.
* ports.c (scm_add_to_port_table): add backwards compatibility
function
* ports.h: use scm_i_ prefix for port table and port table size.
Diffstat (limited to 'libguile/ioext.c')
| -rw-r--r-- | libguile/ioext.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/ioext.c b/libguile/ioext.c index 931a157f7..cbc301131 100644 --- a/libguile/ioext.c +++ b/libguile/ioext.c @@ -302,11 +302,11 @@ SCM_DEFINE (scm_fdes_to_ports, "fdes->ports", 1, 0, 0, SCM_VALIDATE_INUM_COPY (1, fd, int_fd); - for (i = 0; i < scm_port_table_size; i++) + for (i = 0; i < scm_i_port_table_size; i++) { - if (SCM_OPFPORTP (scm_port_table[i]->port) - && ((scm_t_fport *) scm_port_table[i]->stream)->fdes == int_fd) - result = scm_cons (scm_port_table[i]->port, result); + if (SCM_OPFPORTP (scm_i_port_table[i]->port) + && ((scm_t_fport *) scm_i_port_table[i]->stream)->fdes == int_fd) + result = scm_cons (scm_i_port_table[i]->port, result); } return result; } |