From 63cea7ccb500b562aa05252268eb91da54652d74 Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Fri, 20 Jan 2017 23:24:44 +0900
Subject: [PATCH] fixing sexp_make_random_source type tag on linux

---
 lib/srfi/27/rand.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/srfi/27/rand.c b/lib/srfi/27/rand.c
index ff09909e..a3c816ec 100644
--- a/lib/srfi/27/rand.c
+++ b/lib/srfi/27/rand.c
@@ -151,7 +151,7 @@ sexp sexp_make_random_source (sexp ctx, sexp self, sexp_sint_t n) {
   sexp_gc_var1(state);
   sexp_gc_preserve1(ctx, state);
   state = sexp_make_bytes(ctx, STATE_SIZE, SEXP_UNDEF);
-  res = sexp_alloc_tagged(ctx, sexp_sizeof_random, sexp_opcode_return_type(self));
+  res = sexp_alloc_tagged(ctx, sexp_sizeof_random, sexp_unbox_fixnum(sexp_opcode_return_type(self)));
   if (sexp_exceptionp(res)) return res;
   sexp_random_state(res) = state;
   sexp_random_init(res, 1);