From fa0c699a6c5d06c2428cc4445d0d48ddda2461d9 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Mon, 4 Jun 2012 23:25:31 +0900
Subject: [PATCH] Fixing unsigned integer bug in bit-set?.

---
 lib/srfi/33/bit.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/srfi/33/bit.c b/lib/srfi/33/bit.c
index 8b0e37b8..d73a79ad 100644
--- a/lib/srfi/33/bit.c
+++ b/lib/srfi/33/bit.c
@@ -281,14 +281,14 @@ static sexp sexp_bit_set_p (sexp ctx, sexp self, sexp_sint_t n, sexp i, sexp x)
   if (! sexp_fixnump(i))
     return sexp_type_exception(ctx, self, SEXP_FIXNUM, i);
   if (sexp_fixnump(x)) {
-    return sexp_make_boolean(sexp_unbox_fixnum(x) & (1<<sexp_unbox_fixnum(i)));
+    return sexp_make_boolean(sexp_unbox_fixnum(x) & (1UL<<sexp_unbox_fixnum(i)));
 #if SEXP_USE_BIGNUMS
   } else if (sexp_bignump(x)) {
     pos = sexp_unbox_fixnum(i) / (sizeof(sexp_uint_t)*CHAR_BIT);
     return sexp_make_boolean((pos < sexp_bignum_length(x))
                              && (sexp_bignum_data(x)[pos]
-                                 & (1<<(sexp_unbox_fixnum(i)
-                                        - pos*sizeof(sexp_uint_t)*CHAR_BIT))));
+                                 & (1UL<<(sexp_unbox_fixnum(i)
+                                          - pos*sizeof(sexp_uint_t)*CHAR_BIT))));
 #endif
   } else {
     return sexp_type_exception(ctx, self, SEXP_FIXNUM, x);