diff options
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; |