* gc.h (SCM_GC_SET_CELL_BVEC): New.

[bpt/guile.git] / libguile / gc-card.c

diff --git a/libguile/gc-card.c b/libguile/gc-card.c
index 0deb166..3939417 100644 (file)
--- a/libguile/gc-card.c
+++ b/libguile/gc-card.c
@@ -308,7 +308,7 @@ scm_i_init_card_freelist (scm_t_cell *  card, SCM *free_list,
   int idx = (card  - seg->bounds[0]) / SCM_GC_CARD_N_CELLS; 
 
   bvec_ptr += idx *SCM_GC_CARD_BVEC_SIZE_IN_LONGS;
-  SCM_GC_CELL_BVEC (card) = bvec_ptr;
+  SCM_GC_SET_CELL_BVEC (card, bvec_ptr);
   
   /*
      ASSUMPTION: n_header_cells <= 2.