From 950f1e1c0494a5ae24981dad01cf4874383a7597 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 11 Oct 2011 22:31:21 -0700
Subject: [PATCH] random: be> is faster (and they are random anyway)...
---
basis/random/random.factor | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/basis/random/random.factor b/basis/random/random.factor
index 2b8d4c783b..f15cd8f9de 100644
--- 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>