fix bug in random-bytes* when no random-32* exists
parent
0e97398da8
commit
ccc69a5ef4
|
@ -30,3 +30,6 @@ IN: random.tests
|
|||
|
||||
[ 3 ] [ { 1 2 3 4 } 3 sample prune length ] unit-test
|
||||
[ 99 ] [ 100 99 sample prune length ] unit-test
|
||||
|
||||
[ ]
|
||||
[ [ 100 random-bytes ] with-system-random drop ] unit-test
|
||||
|
|
|
@ -22,7 +22,7 @@ M: object random-bytes* ( n tuple -- byte-array )
|
|||
[ 2drop ] [ random-32* 4 >le swap head over push-all ] if
|
||||
] bi-curry bi* ;
|
||||
|
||||
M: object random-32* ( tuple -- r ) 4 random-bytes* le> ;
|
||||
M: object random-32* ( tuple -- r ) 4 swap random-bytes* le> ;
|
||||
|
||||
ERROR: no-random-number-generator ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue