summaryrefslogtreecommitdiff
path: root/libguile/gc-card.c
diff options
context:
space:
mode:
authorHan-Wen Nienhuys <hanwen@lilypond.org>2007-08-26 18:11:57 +0000
committerHan-Wen Nienhuys <hanwen@lilypond.org>2007-08-26 18:11:57 +0000
commit5dbc6c067957e1e854adf09ea654773fef24e4c2 (patch)
treeca3242ae6ac00bc149d1a713697a7f54d78ab3f2 /libguile/gc-card.c
parentb87e6d0412ab54a30d133db19c01d3de2e61ddee (diff)
downloadguile-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.c3
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;