From 9e82c69489d7e58efa9b14105d83bea97a289147 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 10 Sep 2008 16:57:53 -0500
Subject: [PATCH] clean up random

---
 basis/random/random.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/random/random.factor b/basis/random/random.factor
index 0a421288d5..515c464a5a 100755
--- a/basis/random/random.factor
+++ b/basis/random/random.factor
@@ -36,9 +36,9 @@ M: f random-32* ( obj -- * ) no-random-number-generator ;
 : random ( seq -- elt )
     [ f ] [
         [
-            length dup log2 7 + 8 /i 1+ random-bytes
-            [ length 3 shift 2^ ] [ byte-array>bignum ] bi
-            swap / * >integer
+            length dup log2 7 + 8 /i 1+
+            [ random-bytes byte-array>bignum ]
+            [ 3 shift 2^ ] bi / * >integer
         ] keep nth
     ] if-empty ;