From 726f82e747aab5e8072dbb389588e2275f5ec534 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Thu, 18 Mar 2004 00:19:52 +0000 Subject: [PATCH] (sweep_card): use SCM_GC_SET_CELL_WORD for setting free cells. --- libguile/ChangeLog | 5 +++++ libguile/gc-card.c | 5 ++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 3963aadb7..eb1061266 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2004-03-18 Han-Wen Nienhuys + + * gc-card.c (sweep_card): use SCM_GC_SET_CELL_WORD for setting + free cells. + 2004-03-14 Kevin Ryde * stime.c: Define _GNU_SOURCE for strptime prototype from glibc. diff --git a/libguile/gc-card.c b/libguile/gc-card.c index 7189927ec..a458cbaf0 100644 --- a/libguile/gc-card.c +++ b/libguile/gc-card.c @@ -291,8 +291,7 @@ scm_i_sweep_card (scm_t_cell * p, SCM *free_list, scm_t_heap_segment*seg) abort(); } - - SCM_SET_CELL_TYPE (scmptr, scm_tc_free_cell); + SCM_GC_SET_CELL_WORD (scmptr, 0, scm_tc_free_cell); SCM_SET_FREE_CELL_CDR (scmptr, PTR2SCM (*free_list)); *free_list = scmptr; free_count ++; @@ -327,7 +326,7 @@ scm_i_init_card_freelist (scm_t_cell * card, SCM *free_list, for (; p > card; p -= span) { const SCM scmptr = PTR2SCM (p); - SCM_SET_CELL_TYPE (scmptr, scm_tc_free_cell); + SCM_GC_SET_CELL_WORD (scmptr, 0, scm_tc_free_cell); SCM_SET_FREE_CELL_CDR (scmptr, PTR2SCM (*free_list)); *free_list = scmptr; }