From 56e11e6264555840b163041d47f88e2f79606e7e Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sun, 24 Jul 2011 11:03:33 +0900
Subject: [PATCH] Disabling bignum warning in qsort.c when bignums are
 disabled.

---
 lib/srfi/95/qsort.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/srfi/95/qsort.c b/lib/srfi/95/qsort.c
index 3c1c33d3..14cf71c5 100644
--- a/lib/srfi/95/qsort.c
+++ b/lib/srfi/95/qsort.c
@@ -68,12 +68,16 @@ static int sexp_object_compare (sexp ctx, sexp a, sexp b) {
         res = sexp_pointer_tag(a) - sexp_pointer_tag(b);
       } else {
         switch (sexp_pointer_tag(a)) {
+#if SEXP_USE_FLONUMS
         case SEXP_FLONUM:
           res = sexp_flonum_value(a) - sexp_flonum_value(b);
           break;
+#endif
+#if SEXP_USE_BIGNUMS
         case SEXP_BIGNUM:
           res = sexp_bignum_compare(a, b);
           break;
+#endif
         case SEXP_STRING:
           res = strcmp(sexp_string_data(a), sexp_string_data(b));
           break;