diff options
author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2007-08-26 18:11:57 +0000 |
---|---|---|
committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2007-08-26 18:11:57 +0000 |
commit | 5dbc6c067957e1e854adf09ea654773fef24e4c2 (patch) | |
tree | ca3242ae6ac00bc149d1a713697a7f54d78ab3f2 /libguile/gc-card.c | |
parent | b87e6d0412ab54a30d133db19c01d3de2e61ddee (diff) | |
download | guile-5dbc6c067957e1e854adf09ea654773fef24e4c2.tar.gz |
replace port table with weak hash table. This simplifies
memory management, and fixes freed cells appearing in
port-for-each output.
Diffstat (limited to 'libguile/gc-card.c')
-rw-r--r-- | libguile/gc-card.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/gc-card.c b/libguile/gc-card.c index 0639230a7..7fa1c7cb3 100644 --- a/libguile/gc-card.c +++ b/libguile/gc-card.c @@ -206,8 +206,7 @@ scm_i_sweep_card (scm_t_cell * p, SCM *free_list, scm_t_heap_segment*seg) } SCM_SETSTREAM (scmptr, 0); - scm_remove_from_port_table (scmptr); - scm_gc_ports_collected++; + scm_i_remove_port (scmptr); SCM_CLR_PORT_OPEN_FLAG (scmptr); } break; |