Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 05:06:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Disabling bignum warning in qsort.c when bignums are disabled.

Browse source
This commit is contained in:
Alex Shinn 2011-07-24 11:03:33 +09:00
parent 75af68ad76
commit 56e11e6264
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/srfi/95/qsort.c
View file

@ -68,12 +68,16 @@ static int sexp_object_compare (sexp ctx, sexp a, sexp b) {
res = sexp_pointer_tag(a) - sexp_pointer_tag(b); res = sexp_pointer_tag(a) - sexp_pointer_tag(b);
} else { } else {
switch (sexp_pointer_tag(a)) { switch (sexp_pointer_tag(a)) {
#if SEXP_USE_FLONUMS
case SEXP_FLONUM: case SEXP_FLONUM:
res = sexp_flonum_value(a) - sexp_flonum_value(b); res = sexp_flonum_value(a) - sexp_flonum_value(b);
break; break;
#endif
#if SEXP_USE_BIGNUMS
case SEXP_BIGNUM: case SEXP_BIGNUM:
res = sexp_bignum_compare(a, b); res = sexp_bignum_compare(a, b);
break; break;
#endif
case SEXP_STRING: case SEXP_STRING:
res = strcmp(sexp_string_data(a), sexp_string_data(b)); res = strcmp(sexp_string_data(a), sexp_string_data(b));
break; break;