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

random: no need to zero bytes in M\ object random-bytes*.

char-rename
John Benediktsson 2016-07-11 14:00:53 -07:00
parent 800d643c2d
commit f0d47b7329
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

@ -19,7 +19,7 @@ GENERIC: random-32* ( obj -- n )
GENERIC: random-bytes* ( n obj -- byte-array ) GENERIC: random-bytes* ( n obj -- byte-array )
M: object random-bytes* M: object random-bytes*
[ integer>fixnum-strict [ <byte-array> ] keep ] dip [ integer>fixnum-strict [ (byte-array) ] keep ] dip
[ over 4 >= ] [ [ over 4 >= ] [
[ 4 - ] dip [ 4 - ] dip
[ random-32* 2over c:int c:set-alien-value ] keep [ random-32* 2over c:int c:set-alien-value ] keep