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

diff --git a/basis/random/random.factor b/basis/random/random.factor
index 496c5d8fbf2a2d05bdeec7d49b7019a371948e37..d1ee076a1f7b3ecf4b60ee2188280b2329b12d8f 100644 (file)
--- 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