mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

* sort.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:09:46 +00:00
parent 971d1e36f0
commit 3cfe6eab01
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/sort.c
View file

@ -758,7 +758,7 @@ SCM_DEFINE (scm_sort, "sort", 2, 0, 0,
items = scm_list_copy (items);
return scm_merge_list_step (&items, scm_cmp_function (less), less, len);
}
#ifdef SCM_HAVE_ARRAYS
#if SCM_HAVE_ARRAYS
/* support ordinary vectors even if arrays not available? */
else if (SCM_VECTORP (items))
{
@ -910,7 +910,7 @@ SCM_DEFINE (scm_stable_sort, "stable-sort", 2, 0, 0,
items = scm_list_copy (items);
return scm_merge_list_step (&items, scm_cmp_function (less), less, len);
}
#ifdef SCM_HAVE_ARRAYS
#if SCM_HAVE_ARRAYS
/* support ordinary vectors even if arrays not available? */
else if (SCM_VECTORP (items))
{