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

slightly faster

db4
Doug Coleman 2008-11-12 13:28:17 -06:00
parent b45c03877b
commit a8f1680bcd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/random/random.factor
View File

@ -16,7 +16,7 @@ GENERIC: random-bytes* ( n tuple -- byte-array )
<PRIVATE <PRIVATE
: adjust-random ( n m -- n' ) : adjust-random ( n m -- n' )
3 mask 0 = [ 1+ ] unless ; inline 3 mask zero? [ 1+ ] unless ; inline
PRIVATE> PRIVATE>
@ -39,7 +39,7 @@ M: f random-32* ( obj -- * ) no-random-number-generator ;
: random-bytes ( n -- byte-array ) : random-bytes ( n -- byte-array )
[ [
dup adjust-random random-generator get random-bytes* dup adjust-random random-generator get random-bytes*
] keep head >byte-array ; ] keep head-slice >byte-array ;
<PRIVATE <PRIVATE