From 73e02601e483a691e791cb01945e8ba8f4d9dce2 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sat, 21 Jul 2012 17:27:09 +0900
Subject: [PATCH] changing sexp_call_sigaction to avoid casts

---
 lib/chibi/signal.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lib/chibi/signal.c b/lib/chibi/signal.c
index 9f9a190a..379728fa 100644
--- a/lib/chibi/signal.c
+++ b/lib/chibi/signal.c
@@ -18,8 +18,7 @@ static void sexp_call_sigaction (int signum, siginfo_t *info, void *uctx) {
   if (ctx) {
 #if SEXP_USE_GREEN_THREADS
     sexp_global(ctx, SEXP_G_THREADS_SIGNALS) =
-      (sexp) ((sexp_uint_t)sexp_global(ctx, SEXP_G_THREADS_SIGNALS)
-              | (sexp_uint_t)sexp_make_fixnum(1UL<<signum));
+      sexp_make_fixnum((1UL<<signum) | sexp_unbox_fixnum(sexp_global(ctx, SEXP_G_THREADS_SIGNALS)));
 #else
     handler = sexp_vector_ref(sexp_global(ctx, SEXP_G_SIGNAL_HANDLERS),
                               sexp_make_fixnum(signum));