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

2016-07-11 14:00:53 -07:00 · 2016-07-11 14:00:53 -07:00 · f0d47b7329
parent 800d643c2d
commit f0d47b7329
1 changed files with 1 additions and 1 deletions
--- a/basis/random/random.factor
+++ b/basis/random/random.factor
@ -19,7 +19,7 @@ GENERIC: random-32* ( obj -- n )
 GENERIC: random-bytes* ( n obj -- byte-array )

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