mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

* gc-card.c: fix various preprocessor usages of new public

Browse source 
symbols to expect 0 or 1 values rather than 1 or undefined.
i.e. change #ifdef to #if, etc.
This commit is contained in:
Rob Browning 2003-03-27 20:08:01 +00:00
parent 4efd15dc3b
commit c7df0739ae
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/gc-card.c
View file

@ -166,7 +166,7 @@ scm_i_sweep_card (scm_t_cell * p, SCM *free_list, scm_t_heap_segment*seg)
"compiled closure");
break;
#endif
#ifdef SCM_HAVE_ARRAYS
#if SCM_HAVE_ARRAYS
case scm_tc7_bvect:
{
unsigned long int length = SCM_BITVECTOR_LENGTH (scmptr);