conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixed a bug in "random" not terminating for large numbers

This commit is contained in:
Abdulaziz Ghuloum 2009-10-16 10:03:13 +03:00
parent 858198b886
commit e10ea87a31
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/last-revision
View File

@ -1 +1 @@
1859 1860

4
src/ikarus-numerics.c
View File

@ -1924,8 +1924,8 @@ ikrt_bignum_to_bytevector(ikptr x, ikpcb* pcb){
ikptr ikptr
ikrt_fxrandom(ikptr x){ ikrt_fxrandom(ikptr x){
int mask = 1; long int mask = 1;
int n = unfix(x); long int n = unfix(x);
{ {
while(mask < n){ while(mask < n){
mask = (mask << 1) | 1; mask = (mask << 1) | 1;