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

fixing sexp_make_random_source type tag on linux

Browse source
This commit is contained in:
Alex Shinn 2017-01-20 23:24:44 +09:00
parent 260f55adec
commit 63cea7ccb5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/srfi/27/rand.c
View file

@ -151,7 +151,7 @@ sexp sexp_make_random_source (sexp ctx, sexp self, sexp_sint_t n) {
sexp_gc_var1(state); sexp_gc_var1(state);
sexp_gc_preserve1(ctx, state); sexp_gc_preserve1(ctx, state);
state = sexp_make_bytes(ctx, STATE_SIZE, SEXP_UNDEF); 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; if (sexp_exceptionp(res)) return res;
sexp_random_state(res) = state; sexp_random_state(res) = state;
sexp_random_init(res, 1); sexp_random_init(res, 1);