random: be> is faster (and they are random anyway)...

diff --git a/basis/random/random.factor b/basis/random/random.factor
index 2b8d4c783b631d4848f45864192e11aea1af6ea7..f15cd8f9de7e54c3c9e0529b8632d11a6db5c26a 100644 (file)
--- a/basis/random/random.factor
+++ b/basis/random/random.factor
@@ -23,7 +23,7 @@ M: object random-bytes* ( n tuple -- byte-array )
         [ 2drop ] [ random-32* 4 >le swap head append! ] if
     ] bi-curry bi* ;
 
-M: object random-32* ( tuple -- r ) 4 swap random-bytes* le> ;
+M: object random-32* ( tuple -- r ) 4 swap random-bytes* be> ;
 
 ERROR: no-random-number-generator ;
 
@@ -41,7 +41,7 @@ M: f random-32* ( obj -- * ) no-random-number-generator ;
 
 : random-integer ( n -- n' )
     dup log2 7 + 8 /i 1 +
-    [ random-bytes le> ]
+    [ random-bytes be> ]
     [ 3 shift 2^ ] bi / * >integer ;
 
 PRIVATE>