steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

wrap -> mod again

db4
Doug Coleman 2008-09-09 15:46:14 -05:00
parent 7764242f66
commit d72114fcce
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/random/random.factor
View File

@ -39,7 +39,7 @@ M: f random-32* ( obj -- * ) no-random-number-generator ;
length [ length [
log2 8 + 8 /i log2 8 + 8 /i
random-bytes byte-array>bignum random-bytes byte-array>bignum
] keep wrap ] keep mod
] keep nth ] keep nth
] if-empty ; ] if-empty ;