Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-12 23:47:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing typo in random-integer fix.

Browse source
This commit is contained in:
Alex Shinn 2015-04-25 13:05:17 +09:00
parent 11cb17835b
commit 7e80510755
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -69,12 +69,12 @@ static sexp sexp_rs_random_integer (sexp ctx, sexp self, sexp_sint_t n, sexp rs,
} }
/* Scan down, modding bigits > bound to < bound, and stop as */ /* Scan down, modding bigits > bound to < bound, and stop as */
/* soon as we are sure the result is within bound. */ /* soon as we are sure the result is within bound. */
for (i = hi-1; i >= 0; i++) { for (i = hi-1; i >= 0; i--) {
mod = sexp_bignum_data(bound)[i-1]; mod = sexp_bignum_data(bound)[i];
if (mod && sexp_bignum_data(res)[i-1] > mod) { if (mod && sexp_bignum_data(res)[i] > mod) {
sexp_bignum_data(res)[i-1] %= mod; sexp_bignum_data(res)[i] %= mod;
} }
if (sexp_bignum_data(res)[i-1] != mod) { if (sexp_bignum_data(res)[i] != mod) {
break; break;
} }
} }